В паскале.

В массиве хранится информация о стоимости каждого из 50 марок легковых автомобилей Определить, сколько стоит самый дорогой автомобиль.

Question

Информатика

Лизавета

1 ноября, 12:28

В паскале.

В массиве хранится информация о стоимости каждого из 50 марок легковых автомобилей Определить, сколько стоит самый дорогой автомобиль.

+3

Ответы (1)

Знаете ответ на вопрос?

Вячеслав · Answer 1

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.

В паскале.В массиве хранится информация о стоимости каждого из 50 марок легковых автомобилей Определить, сколько стоит самый дорогой автомобиль.

В паскале.

В массиве хранится информация о стоимости каждого из 50 марок легковых автомобилей Определить, сколько стоит самый дорогой автомобиль.