Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tamilatumasheva
29.05.2021 22:51 •
Информатика
Впаскале. в массиве хранится информация о стоимости каждого из 50 марок легковых автомобилей определить, сколько стоит самый дорогой автомобиль.
Показать ответ
Ответ:
georgijandreev1
06.10.2020 09:10
Const
N = 50;
Var
M:array[1..N] of longint;
i,Max:integer;
Begin
Randomize;
WriteLn('Цены(в рублях): ');
Max:=1;
For i:= 1 to N do
Begin
M[i]:=random(9900001)+100000;
WriteLn(M[i]);
if M[i] > M[Max] then Max:=i;
End;
WriteLn('Max = ',M[Max]);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
nikzarubenko
20.05.2020 12:08
Заполните таблицу пятью примерами искусственных информационных процессов, протекающих в системах. Биологические системы Технические системы Человек Животный мир Растительный...
zizi131
17.10.2020 11:49
4. Напишите в тетрадь текст из пяти абзацев под названием «Моя Родина Узбекистан». В тексте должно быть не мень- ше 15 предложений. Перед тем как написать, к каждому...
smalik8
14.05.2020 03:03
Информатика. нужно составить блок схемы к (хотя бы к 1) кину 100 на карту тому, кто !...
kfisatidi
19.04.2021 13:48
Напишите кратко правила! 1. все знаки препинания, кроме тире, ставьте сразу же за последней буквой слова; после любого знака препинания нажимайте клавишу пробел. тире...
darinanugmanova
23.04.2020 21:28
ответить на вопросы . 1) какая операция реляционной возвратит строки, имеющиеся в одной таблице и в другой, при этом дубликаты строк не возвращаются. 2) какая операция...
alexeikomarow
13.12.2020 10:13
11, определить значение переменной s после выполнения следующих команд. s: =3; i: =2; пока i ==17 выполнять начало цикла s: =s+1; i: =i+2; конец цикла s: =s+8;...
kuchakshoevaZ
13.12.2020 10:13
Укого есть программа нужно нарисовать в ней звезду и тут написать координаты , много)...
odinokijcelovek
13.12.2020 10:13
Составить программу для решения следующей : найти площадь кольца, если заданы радиус внешней окружности и радиус внутренней окружности....
mnadezhkin
19.01.2022 22:57
Среднее арифметическое двух чисел равно 6,2.одно число в 2,1 раза меньше другого.найдите меньшее число.....
АндрейXXXМ
19.01.2022 22:57
Нужно сачыненне магіла льва яго высокую магі магілай льва народ назваў ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N = 50;
Var
M:array[1..N] of longint;
i,Max:integer;
Begin
Randomize;
WriteLn('Цены(в рублях): ');
Max:=1;
For i:= 1 to N do
Begin
M[i]:=random(9900001)+100000;
WriteLn(M[i]);
if M[i] > M[Max] then Max:=i;
End;
WriteLn('Max = ',M[Max]);
End.