tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Впаскале. в массиве хранится
Впаскале. в массиве хранится информация о стоимости каждого из 50 марок легковых автомобилей определить, сколько стоит самый дорогой автомобиль.
angelinalitvine
1 01.09.2019 06:00
6
Ответы
Mockingbird666
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nikafolz
10.12.2020 00:56
Конъюнкция и дизъюнкция и инверсия...
Vens12
18.09.2020 05:21
1) Вычислите десятичные эквиваленты следующих чисел: 152= 7E316 11,1,- 2) Укажите какое из чисел является наибольшим: 11111, 1C16, 368 3) Какое минимальное основание имеет система...
незнайка3431
18.09.2020 05:22
Какому двоичному числу соответствует следующая форма записи? 1 × 2 ⁵ + 0 × 2⁴ + 1 × 2³ + 1 × 2² + 0 × 2¹ + 1 × 2⁰=...
toyru556
03.09.2020 01:50
Компьютермен жұмыс кезиндеги ережелер...
anyanaffanya
27.04.2021 08:14
2) Решите кроссворд, стр. 126 ( )...
Бацио
27.04.2021 08:11
Назовём данную таблицу TEMPERATURA. Месяц 1 2 3 4 5 6 7 8 9 10 11 12 Температура −20 −17 −7 4 7 13 26 24 15 6 −2 −10 Тогда TEMPERATURA [9...
Elenamas11
13.04.2020 04:16
Help. Целочисленным переменным a, b, c надо присвоить соответственно значения 1, 2 и 3. Какой оператор ввода соответствует входному потоку 2 1 3? readln (a, b, c) read (b, a,...
макс10106
13.04.2020 04:16
Нарисовать блок-схему программы которая возводить число в десятую степень. Использовать любой из циклов...
DFV7
13.04.2020 03:57
Составьте программу задающую одномерный массив целых чисел из 6 элементов вводимых с клавиатуры и оформите вывод элементов на экран в строчку СДЕЛАТЬ НУЖНО НА ПАСКАЛЕ...
valerapolnikov2
13.04.2020 03:56
Информатика. пишу программу пишет ошибку. не могу понять что не так? подскажите что нужно сделать? Даю 20бvarn1,n2,n3:integer;begin write( Ввод n1,n2,n3, ); read (n1,n2,n3); if...
Популярные вопросы
Решите, , примеры по тригонометрии. примеры: 1) 2cos^2α - cos2α 2) cosα = 1/...
2
Отметьте слова, в которых пишется одна буква н. броше«_»ая тень склее«_»ые...
3
Точка движется по оси х по закону: х=2 + 6t -3t*2(м) координата, в которой...
2
Представте в виде одночлена стандартного вида: (-2а в 4 степени в во 2 степени)в...
1
Равнобедренная трапеция mnpq (mn||pq) описана около окружности, известно что...
3
Сочинение миниатюра на тему нуждается ли язык в защите? 10 предложений...
1
Объясните мне, , как найти две дроби, каждая из которых больше 7/9 и меньше...
1
Поезд идущий со скоростью 15 м/с,остановился через 20 с после начала торможения....
2
Жон деген сөз қандай мағынаны білдіреді?...
2
Вставить недостающие слова по : gabi ....
3
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.