Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
CorgiDog
13.08.2022 05:10 •
Информатика
Напишите программу печатающую номера элементов массива больших 30 (паскаль)
Показать ответ
Ответ:
egorikmail826
04.10.2020 20:02
Program example;
var arr: array[1..50] of Integer;
i: Integer;
begin
randomize;
for i:=1 to 50 do
arr[i]:= random (100);
for i:= 1 to 50 do
begin
if arr[i] > 30 then
writeln ('Array[', i, '] = ', arr[i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
rne
23.11.2021 11:01
Всавь пропущенные слова: a) модель является процесса моделирования. б) модель может иметь ту же форму, цвет, тот элементный , что и моделируемый ....
Rushana14
27.04.2023 13:57
В кодировке Unicode на каждый символ отводится 2 байта. Определите в этой кодировке информационный объём следующей пословицы: труд человека кормит, а лень портит...
Daylidkoi
04.01.2020 19:52
Дано целое число. Если оно является положительным, то необходимоприбавить к нему 24, в противном случае не изменять его. Затем вывестиполученное число....
anelya1429
18.05.2021 00:10
17. Что будет результатом исполнения Черепашкой (см.например 5) алгоритма?Повтори 8 (Направо 45 Вперед 4518. Запишите алгоритм для исполнителя Вычислитель (см. пример 6),...
AlbertDavtyan
01.09.2020 03:51
Поменять местами в заданном массиве a (а [1], а [2], ..., a [n]) наибольший и наименьший элементы. ЯЗЫК C++, сделать через подпрограмму параметры указатели....
lera0078
03.02.2023 13:49
Выбери группу чисел, которые делятся на 3 и на 5 А) 5, 15, 30, 45, 60, 65 В) 15, 45, 75, 90, 105, 120 С) 3, 5, 9, 10, 12, 15 D) 15, 30, 45, 50, 55, 135 :)...
vladsimonenko4
18.05.2020 04:44
Определи, с какой силой притягиваются друг к другу два астероида, массы которых равны 13 млн тонн и 14 млн тонн, если расстояние между ними составляет 3 млн км. ответ (округли...
Mal4uk23
17.07.2022 16:23
Выбери средства жидкой и бытовой химии верных ответов 3 отбеливатель аммиак мыла стиральный порошок дезодорант пятновыводитель даю 20...
lizahatemehoten
17.07.2022 16:23
Найди, какую массу эфира превратили в пар, если для этого израсходовано 8399 Дж энергии? (Удельная теплота парообразования L=352000 Дж/кг). округлите до десятых...
bomicbomic
11.09.2021 23:38
ЖЭС ке оту себептеры мен онын натижесы туралы айтып бер...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var arr: array[1..50] of Integer;
i: Integer;
begin
randomize;
for i:=1 to 50 do
arr[i]:= random (100);
for i:= 1 to 50 do
begin
if arr[i] > 30 then
writeln ('Array[', i, '] = ', arr[i]);
end;
end.