Developing.ru

Код: Выделить всё

var a:array[1..45] of real;
b:array[1..15] of real;
i,j,k,n,razmb,nmax:integer;
y,max:real;
begin
writeln('vvedite razmernost massiva');
readln(n);
razmb:=n div 3;
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
k:=1;
for i:=1 to n do begin
b[k]:=a[i]+a[i+1]+a[i+2];
i:=i+2; k:=k+1;
end;
max:=b[1]; nmax:=1;
for i:=2 to razmb do
if b[i]>max then begin max:=b[i]; nmax:=i;
end;
for i:=nmax downto 2 do begin
y:=b[i-1];
b[i-1]:=b[i];
b[i]:=y;
end;
for i:=1 to razmb do writeln(b[i]:0:3);
readln;
end.