Question

Определите количество четных положительных элементов массива А.
(Паскаль)

Answer 1

const N=10; 
var 
i,ch:integer; 
A:array [1..n] of integer; 
Begin 
For i:=1 to N do BEGIN 
A[i]:=Random(99)+1; 
Write(A[i],' '); 
END; 
Write('Нечетные: '); 
For i:=1 to N do BEGIN 
if (A[i] mod 2 = 1) and (i mod 2 = 0) then Write(i, '. ', A[i],' '); 
END; 
WRITELN; 
End. 
Вроде так!

Answer 2

var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
end.

Answer 3

Так попробуй тоже