Регистрация
simalivevl
14.11.2020 22:24
Информатика
Есть ответ 👍

Сколькими человек воспринимает информацию по тестом

131
319
Посмотреть ответы 2

Ответы на вопрос:

Rukgz
Rukgz
4,5(19 оценок)

5-обояние...и дальше сама знаешь

DenchikKing
DenchikKing
4,7(12 оценок)

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.

Объяснение:

Популярно: Информатика