В паскале.

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

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.