Нужно составить программу в paskal ABC: Массив содержит n случайных двузначных чисел....

Question

Нужно составить программу в paskal ABC:
Массив содержит n случайных двузначных чисел. Определить сколько в данном массиве четных чисел. Вывести все его элементы с нечетными номерами.

Answer 1

Var a: array [1..10] of integer;var kolvo:integer;beginfor var i:= 1 to 10 do a[i]:= random(89)+10;for var c:= 1 to 10 do begin if(a[c] mod 2 = 0) then kolvo:=kolvo+1; end;writeln('Четных чисел: ', kolvo);for var i:= 1 to 10 do write(a[i]:4);end.объяснение нужно?

Answer 2

Const n=10; 
var a:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(90)+10;
 write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 2=0 then k:=k+1;
writeln('Четных чисел: ',k);
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
 if i mod 2=1 then write(a[i]:4);
writeln;
end.

Пример:
Массив A:
13 77 63 94 75 87 22 56 59 42
Четных чисел: 4
Элементы с нечетными номерами:
13 63 75 22 59