Регистрация
Alisascol
24.05.2022 15:22
Информатика
Есть ответ 👍

Дано: writeln (s:6:2) если s=113,58319

261
416
Посмотреть ответы 1

Ответы на вопрос:

Артем222211
Артем222211
4,4(28 оценок)
Var a: array [1..10] of real; begin       writeln('введите 10 натуральных чисел');       for i: =1 to 10 do read(a[i]);       for i: =1 to 10 do               if a[i] > 0 then writeln(a[i]) end. программа просит пользователя ввести 10 натуральных чисел. для этого используется оператор read в первом цикле. во втором цикле проверяется каждое из 10 чисел. если оно положительное, т.е. больше 0, оно выводится на экран. затем программа завершает работу.

Популярно: Информатика