Найти количество четных чисел в последовательности - вопрос №349080215 от pchpppr 12.10.2020 22:41

Question

Информатика: Найти количество четных чисел в последовательности m,состоящий из 15 чисел го ,

pchpppr · Answer

Var M: array[1..15] of integer;
i, count: integer;
begin
  for i := 1 to 15 do begin
  M[i] := random(15);
  write(M[i]:3);
  if(M[i] mod 2 = 0) then inc(count);
  end;
  writeln(#10, 'Кол-во четных элементов: ', count);
end.