В заданном одномерном массиве W, состоящем из 40 целых чисел, подсчитать количество четных элементов. Элементы массива - случайные числа​

Лиза5685 Лиза5685    3   16.12.2020 12:16    6

Ответы
buniatyansona buniatyansona  15.01.2021 12:19

var w:array [-100..100] of integer;

i,k:integer;

begin

 randomize;

 for i:=1 to 40 do begin

   w[i]:=random(101);

   write(w[i],' ');

   if w[i] mod 2 = 0 then inc(k);

 end;

 writeln;

 write(k);

end.

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