Дана последовательность из n случайных чисел в интервале [-50; 50] . определить количество нечетных чисел имеющих четный порядковый номер. напишите программу через паскаль.
Const n=10; var a:array[1..n] of integer; k,i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(101)-50; write(a[i],' '); end; writeln; k:=0; for i:=1 to n do if (a[i] mod 2<>0)and(i mod 2=0) then k:=k+1; writeln('k = ',k); end.
Program n1; function isprost(x: integer): boolean; var i: integer; begin if x<2 then isprost:=false else begin isprost:=true; for i := 2 to round(sqrt(x)) do if x mod i = 0 then isprost:=false; end; end; function islow(x: integer): boolean; var n1,n2: integer; begin islow:=false; n2:=x mod 10; x:=x div 10; n1:=x mod 10; x:=x div 10; while (n1>n2) and (x<>0) do begin n2:=n1; n1:=x mod 10; x:=x div 10; end; if n1>n2 then islow:=true; end; var k,n,i,f: integer; begin readln(k,n); f:=-1; for i:=k to n do if isprost(i) and islow(i) then begin write(i,' '); f:=1; end; if f=-1 then write(0); end.
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if (a[i] mod 2<>0)and(i mod 2=0) then k:=k+1;
writeln('k = ',k);
end.
Пример:
-28 -27 -46 -20 -6 -15 44 -41 2 -50
k = 3