Задан массив P(10).Сформировать массив С,в который переписать положительные
числа массива Р,и массив А,в который переписать все отрицательные числа массива
Р.Числа в новые массив заносить без пропусков.Распечатать массивы Р,А и С


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
m,n,i : integer;
p : array[0..9] of integer;
a,c : array of integer;
begin
writeln('vvedite massiv');
readln(n);
m := 0;
n:= 0;
for i := 0 to 9 do
begin
if p[i] > 0 then
begin
c[m] := p[i];
m := m+1;
end
else
begin
a[n] := p[i];
n := n+1;
end;
end;

readln;
end.

10к LV

Блин, легко, но щас спать, утром в универ, а вот завтра после обеда от меня
появится решение, если только меня никто не опередит... ;-)
Да, кстате, распечатать в смысле вывести на экран или на бумагу через принтер???

У тебя вводится одно число, а не массив! ;)

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
m,n,i : integer;
p : array[0..9] of integer;
a,c : array[0..9] of integer;
begin
writeln('vvedite massiv');
readln(n);
m := 0;
n:= 0;
for i := 0 to 9 do
begin
if p[i] > 0 then
begin
c[m] := p[i];
m := m+1;
end
else
begin
a[n] := p[i];
n := n+1;
end;
end;
for i:=m to 9 do c[i]:=0;
for i:=n to 9 do a[i]:=0;
for i:=0 to 9 do write(p[i],' ');
writeln('');
for i:=0 to 9 do write(c[i],' ');
writeln('');
for i:=0 to 9 do write(a[i],' ');
writeln('');
readln;
end.

А, ну плюс еще ввод переделать. Вместо readln(n) пишешь
for i:=0 to 9 do readln(p[i]);

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
m,n,i : integer;
p : array[0..9] of integer;
a,c : array[0..9] of integer;
begin
writeln('vvedite massiv');
for i:=0 to 9 do readln(p[i]); {Ввод исходного массива}
m := 0;
n:= 0;
for i := 0 to 9 do
begin
if p[i] > 0 then {Заполняем массив с}
begin
c[m] := p[i];
m := m+1;
end
else {Заполняем массив а}
begin
a[n] := p[i];
n := n+1;
end;
end;
for i:=m to 9 do c[i]:=0; {заполняем оставшиеся элементы массива с нулями, т.к.
нужно же их чем-нибудь заполнить}
for i:=n to 9 do a[i]:=0; {заполняем оставшиеся элементы массива а нулями, т.к.
нужно же их чем-нибудь заполнить}
{Вывод массивов на печать}
for i:=0 to 9 do write(p[i],' ');
writeln('');
for i:=0 to 9 do write(c[i],' ');
writeln('');
for i:=0 to 9 do write(a[i],' ');
writeln('');
readln;
end.

всем спасибо