type

TNiz = array[1..1000] of integer;

var

a : TNiz; n, iMax, iMin : integer; srVr : real; g : Text;

procedure Ucitaj(var a : TNiz; var n : integer);

var

i : integer; f : Text;

begin

Assign(f,’niz01.in’); Reset(f);

ReadLn(f,n);

for i := 1 to n do Read(f,a[i]);

Close(f);

end;

function srednja(a : TNiz; n : integer) : real;

var

i : integer; s : real;

begin

s := 0;

for i := 1 to n do s := s + a[i];

srednja := s / n;

end;

procedure MinMax(a : TNiz; n : integer; var iMax, iMin : integer);

var

i : integer;

begin

iMax := 1;

iMin := 1;

for i := 2 to n do

begin

if a[i] > a[iMax] then iMax := i;

if a[i] < a[iMin] then iMin := i;

end;

end;

begin

Ucitaj(a,n);

srVr := srednja(a,n);

MinMax(a,n,iMax,iMin);

Assign(g,'zad2.out');

Rewrite(g);

WriteLn(g,'Srednja vrednost elemenata niza : ',srVr:5:2);

WriteLn(g,'Maksimalni element : ',a[iMax]);

WriteLn(g,'Minimalni element : ',a[iMin]);

WriteLn(g,'Indeks maksimalnog elementa : ',iMax);

WriteLn(g,'Indeks minimalnog elementa : ',iMin);

Close(g);

end.