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

заразарема заразарема    2   11.04.2020 21:00    0

Ответы
gravasamp gravasamp  13.10.2020 02:32

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика