Паскаль с тремя циклами. Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 35, заменить их на 0. Напечатать все полученные числа.

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

program ReplaceNumbers;
var
i: integer;
numbers: array[1..10] of integer;
begin
// Вводим 10 чисел с клавиатуры
for i := 1 to 10 do
begin
write('Введите число ', i, ': ');
readln(numbers[i]);
end;
// Проверяем каждое число и заменяем числа больше 35 на 0
for i := 1 to 10 do
begin
if numbers[i] > 35 then
numbers[i] := 0;
end;
// Выводим все числа
writeln('Полученные числа:');
for i := 1 to 10 do
write(numbers[i], ' ');
end.

Пример работы программы:

Введите число 1: 20
Введите число 2: 40
Введите число 3: 15
Введите число 4: 38
Введите число 5: 25
Введите число 6: 30
Введите число 7: 10
Введите число 8: 45
Введите число 9: 5
Введите число 10: 50
Полученные числа:
20 0 15 0 25 30 10 0 5 0