Напишите программу, позволяющую ввести 9 элементов, кратных 3. (через IF). Паскаль. Массив.

Question

Информатика

Милти

18 января, 15:33

Напишите программу, позволяющую ввести 9 элементов, кратных 3. (через IF). Паскаль. Массив.

+5

Ответы (1)

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

Арминуи · Answer 1

var arr: array [1 ... 9] of integer;

i, num: integer;

begin

i : = 1;

while (i < = 9) do

begin

readln (num) ;

if (num mod 3 = 0) then

begin

arr[i] : = num;

i : = i + 1;

end;

end;

end.