Question

Массив жаилы блетндер барма?көмектесіңдерші ! Мна тақырып; Массив (бір өлшемді 1-ден n-ге деингі санның орташа мәнін минимум максимумын есептеитн программа құру

Answer 1

const n=10;
var a:array[1..n] of integer;
i,min,max:integer;
s:real;
Begin
for i:=1 to n do
read(a[i]);

min:=a[1]; max:=a[1]; s:=0;
for i:=1 to n do
begin
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
s:=s+a[i];
end;

writeln('min=', min);
writeln('max=',max);
writeln('orta man=', s/n:4:2);
readln;
End;