Developing.ru

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

uses crt;
var a,b,c:array[1..30] of real;
i,j:byte;
max:real;
begin
 clrscr;
 writeln('Vvodite elementy massiva: ');
 for i:=1 to 30 do readln(a[i]);
 max:=a[i];
 for i:=1 to 30 do
 if max<a[i] then
  begin
   max:=a[i];
   j:=i;
  end;
clrscr;
writeln('Pervyi maksimalnyi element ',max:5:2,' Ego pozicia ',j:2);
i:=1;
writeln('Elementy do maksimuma: ');
while i<j do
 begin
  b[i]:=a[i];
  writeln(b[i]:5:2);
  i:=i+1;
 end;
readln;
clrscr;
writeln('Elementy posle maksimuma: ');
while j<30 do
 begin
  j:=j+1;
  c[j]:=a[j];
  writeln(c[j]:5:2);
 end;
readln;
end.