Найти количество четных чисел в последовательности - вопрос №3490468 от Каракат11111 05.03.2022 19:38

Question

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

Каракат11111 · 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.