Natural sonlar n, an(0 dan 100 gacha)

. Natural sonlar n, a1,...an(0 dan 100 gacha). Maksimal va minimal elementlarni topadigan va bu raqamlarning arifmetik o'rtacha qiymatini ko'rsatadigan dastur tuzing


Program n1; 
var a:array[1..100] of real;
 i,n:integer; min,max,s,sr:real; 
begin read(n); randomize; 
for i:=1 to n do begin a[i]:=random(100)+1;
 write(a[i],' '); 
end; 
writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n;
 writeln('ср. арифм. = ',sr,''); 
min:=a[1]; for i:=2 to n do if a[i]max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; 
writeln('максимальный элемент равен ',max,'');
 writeln('минимальный элемент равен ',min,''); end.
4. berilgan misol 100dan 20 tashkil etadi