program Exam13;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..10] of integer;
var
a,b,a1,a2,b1,b2:mas;
i,j,m,n,f,d:integer;
PROCEDURE Sort(a:mas;m,i:integer;var b:mas);
begin
writeln('Massiv otricatelnix elementov:');
d:=0;
for i:=1 to m do
if a[i]<0 then begin d:=d+1;b[d]:=a[i];end;
For i:=1 to d do write(b[i]:4);
writeln;
end;
begin
writeln('Vvedite razmernost:');
readln(m);
writeln('Vedite elementi massiva:');
For i:=1 to m do readln(a1[i]);
writeln('Vveli:');
For i:=1 to m do write(a1[i]:4);
writeln;
Sort(a1,m,i,b1);
writeln;
writeln('Vvedite razmernost:');
readln(n);
writeln('Vedite elementi massiva:');
For f:=1 to n do readln(a2[f]);
writeln('Vveli:');
For f:=1 to n do write(a2[f]:4);
writeln;
Sort(a2,n,f,b2);
writeln;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.