Задать с клавиатуры 10 чисел напечатеть те из них которые больше 50

75

Задать с клавиатуры 10 чисел напечатеть те из них которые больше 50

категория: информатика

ответить

в избранное

40

soporno

17 марта 2023

var a: array [1… 10] of real; i: byte; begin for i: =1 to 10 do read (a[i]); for i: =1 to 10 do if a[i] > 50 then write (a[i], '); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Составить алгоритмы создания рисунков в графическом редакторе paint. А. Месяц б. Цветок с. Колобок

Придумайте циклический алгоритм (приготовление блюда) очень нужно) зараннееспасибо*

Определить, делителем какаих чисел a,b,c являеться чило K

1) Даны два целых числа А и В (вводятся с клавиатуры, A

Автомат получает на вход четырехзначное восьмеричное число. По этому числу строится новое число по следущим правилам…

Напишите программу на паскале. В двумерном массиве Z[1… 5,1…

Решите задачу по информатике в программе паскаль, пожалуйста

lдополните таблицу: имя объекта свойство объекта карандаш? Книга?

дополните таблицу имя объекта: свойство объекта: карандаш? Книга?

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...