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

Question

Информатика

Абдулмуним

5 октября, 23:07

Напишите программу, позволяющую ввести 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.