Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера.

Program zadacha;

var a: array[1 ... 5] of integer;

max, min, i, nmax, nmin: integer;

begin

for i:=1 to 5 do

begin

write ('Ââåäèòå a[', i,']=') ;

readln (a[i]) ;

end;

max:=a[1];

min:=a[1];

nmax:=1;

nmin:=1;

for i:=1 to 5 do

begin

if a[i]>max then

begin

max:=a[i];

nmax:=i;

end;

if a[i]
begin

min:=a[i];

nmin:=i;

end;

end;

for i:=1 to 5 do

begin

write (a[i],' ') ;

end;

writeln;

writeln ('Максимальный элемент равен ', max,', его номер ', nmax) ;

writeln ('Минимальный элемент равен ', min,', его номер ', nmin) ;

end.