Заполнить массив состоящий из n элементов введенный пользователем в автоматическом режиме .Найти среднее значение элемента массива.И упорядочить элементы массива.в паскале.срочно!!

1

Ответы и объяснения

2014-03-17T16:22:52+00:00
Program asldkalsdkas;
var a:array[1..20] of integer;
i,j:integer; c:real;
begin
c:=0;
for i:=1 to 20 do
begin readln(a[i]); c:=c+a[i]; end;
c:=c / 20;writeln(c);
for i:=1 to 19 do
for j:= i+1 to 20 do
if a[i]<a[j] then begin a[i]:=a[i]+a[j]; a[j]:=a[i]-a[j]; a[i]:=a[i]-a[j]; end;
for i:=1 to 20 do writeln(a[i]);
end.