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

Question

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

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.