Заполнить массив (с клавиатуры) и вывести его на экран

М[1 ... 9] числами 3,4,7,9,19,23,24,27,39. Вывести числа, кратные 3

Question

Информатика

Тамуся

21 апреля, 23:13

Заполнить массив (с клавиатуры) и вывести его на экран

М[1 ... 9] числами 3,4,7,9,19,23,24,27,39. Вывести числа, кратные 3

+3

Ответы (1)

Знаете ответ на вопрос?

Арсюта · Answer 1

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.

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

Заполнить массив (с клавиатуры) и вывести его на экран

М[1 ... 9] числами 3,4,7,9,19,23,24,27,39. Вывести числа, кратные 3