Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Amdrek
23.09.2020 09:35 •
Информатика
Заполнить линейный массив из 10 элементов случайными числами от -40 до 40. найти максимальный элемент массива. pascal abc
Показать ответ
Ответ:
Mushello2
08.10.2020 21:10
Var
a: array [1..10] of integer;
i: byte;
max: integer;
begin
randomize;
max := -100;
for i := 1 to 10 do
begin
a[i] := random(81) - 40;
if a[i] > max then max := a[i];
write(a[i], ' ');
end;
writeln(#13+'Максимальный элемент = ', max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
осоащумоо
13.08.2022 22:29
Какой алгоритм называют структурным?...
maezsa
31.07.2020 06:03
Сколько граней ребер и вершин в квадратной пирамиде...
artursharipoff
17.09.2021 08:49
Программа: по заданому числу n определите чётное оно или не чётное. на c#...
ersnobestoy9uo8
22.04.2023 11:36
Напишите программу которая будет переводить из 10 системы с счисления в любую другую ( в том числе должны быть отрицательные числа и не только целые) было бы неплохо...
alenamon
21.02.2022 18:18
Катя, саша, максим и аня сыграли круговой турнир в крестики-нолики. саша выиграл у кати и ани. максим проиграл кате и выиграл у саши, а с аней сыграл вничью. катя и...
прнннр1
27.12.2020 07:30
Написать программу для вычисления выражения: s=1! +2! +3! ++15!...
Apple008
27.12.2020 07:30
Мистер фокс отправил мистеру форду подарок в чемодане с кодовым замком. замок, конечно же, был закрыт, и кода мистер форд не знал. но вместе с чемоданом пришла открытка...
nastenadanil2698
03.04.2022 05:31
Перевести число 1011,011 из двоичной в десятичную, и 5а в 16 в двоичную,...
KraRom
21.12.2020 09:38
На вход программы поступает натуральное число, не превышающее 10^9 нужно написать программу, которая выводит на экран максимальную цифру числа, меньшую 5 если в числе...
Vaprosic
20.05.2022 12:07
Написать программу нужно подсчитать сумму покупки 14 карандашей по 30 рублей, 10 красных ручек по 50 рублей, 9 синих ручек по 50 рублей. программа нужна на языке paskal...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array [1..10] of integer;
i: byte;
max: integer;
begin
randomize;
max := -100;
for i := 1 to 10 do
begin
a[i] := random(81) - 40;
if a[i] > max then max := a[i];
write(a[i], ' ');
end;
writeln(#13+'Максимальный элемент = ', max);
end.