Найти количество четных чисел в последовательности - вопрос №153490125 от villa2003 09.08.2022 02:32

Question

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

villa2003 · 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.