Составьте программу ввода с клавиатуры массива целых чисел a[1 ... 10] и вывода на экран элементов массива кратные 3.

Question

Dzhusi

Информатика

29 июля, 04:00

Составьте программу ввода с клавиатуры массива целых чисел a[1 ... 10] и вывода на экран элементов массива кратные 3.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Тимофей Кондратов · Answer 1

Program chisla;

var a: array [1 ... 10] of integer; i:integer;

begin

for i:=0 to 10 do

readln (a[i]);

end;

for i:=0 to 10 do

if (a[i] mod 3) = 0 then

writeln (a[i]);

end;

end.