Заполнить массив (с клавиатуры) и вывести его на экран - вопрос №3494819193479 от hamov1408p06m04 17.01.2021 11:33

Question

Информатика: Заполнить массив (с клавиатуры) и вывести его на экран м[1..9] числами 3,4,7,9,19,23,24,27,39. вывести числа, кратные 3

hamov1408p06m04 · Answer

Var i: integer;
m: array[1..9] of integer;
begin
  for i := 1 to 9 do
  readln(m[i]);
  for i := 1 to 9 do
  if(m[i] mod 3 = 0) then write(m[i]:3);
end.