Знаходження найбільшого (найменшого) значень серед елементів масиву

Дано одномірний масив a(a[1], a[2], … a[n]), всі елементи якого різні. Необхідно знайти найбільший елемент та його номер.

program MaxElMas;

uses

Crt;

var

a:array[1..20] of real;

max:real;

i,n,nom:integer;

begin

Writeln('Введіть кількість елементів масиву',

' n<=20');

Readln(n);

Writeln('Введіть поелементно масив a:');

For i:=1 to n do Read(a[i]);

Readln;

nom:=1; max:=a[1];

For i:=1 to n do

if a[i]>max then

Begin

max:=a[i];

nom:=i;

End;

Writeln('Максимальний елемент масиву ',

'max=',max:10:2);

Writeln('Номер максимального елемента масиву ',

'nom=',nom:2);

Readln;

end.