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

Предыдущий
вопрос Следующий
вопрос

program MultipleOfThree;

var
arr: array[1..9] of Integer;
i: Integer;

begin
for i := 1 to 9 do
begin
repeat
Write('Введите ', i, '-й элемент массива (кратный 3): ');
ReadLn(arr[i]);

end;

WriteLn('Введенные элементы массива (кратные 3):');
for i := 1 to 9 do
begin
WriteLn(arr[i]);
end;
end.