задачи для паскаль авс

Ответ от Александр Баханский[гуру]
var
a:array[1..1000] of real;
s,max:real;
n,i:integer;
begin
write('n=');
readln(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
s:=s/n;
max:=a[1];
for i:=1 to n do
begin
write(a[i]:10:4);
if (a[i]<=s) and (a[i]>max) then max:=a[i];
end;
writeln;
writeln('s=',s:10:4);
writeln('max=',max:10:4);
readln;
end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]