Код:
Program lab1;
Uses crt;
Var a:array [1..20] of real;
b:array [1..20] of real;
c:array [1..20] of real;
i,n,m:integer;
begin
clrscr;
n:=1;
m:=1;
for i:=1 to 20 do
begin
write('Введите ',i:2,'-e значение: ');
read(b[i]);
if b[i]<0 then c[n]:=b[i] else a[m]:=b[i];
n:=n+1;
m:=m+1;
end;
end.
Извени что малость не так.... писал на скорую руку.
