Заполнит массив случайными числами в интервале (20, 100) и подсчитать отдельно числа чётных и нечётных элементов
паскаль

Question

Информатика: Заполнит массив случайными числами в интервале (20, 100) и подсчитать отдельно числа чётных и нечётных элементовпаскаль ​

zenalubimova · Answer

Uses CRT;

const n = 10

var i,i1,i2:integer;

a: array [1 .. n] of integer;

Begin

Randomize;

for i:=1 to n do

a[i]:=random(80)+21;

i1 := 0;

i2 := 0;

for i:=1 to n do

begin

if (a[i] mod 2=0) then

i2+=1

else i1+=1;

end;

Writeln('Количество нечётных =',i1);

Writeln('Кол-во чётных =',i2);

end.

Объяснение:

Заполнит массив случайными числами в интервале (20, 100) и подсчитать отдельно числа чётных и нечётных элементовпаскаль ​