Const
n = 20;
var
a, p0, p1, pa: array[1..n] of integer;
i, ip0, ip1, ipa: integer;
begin
write('Введите ', n, ' элементов массива: ');
for i := 1 to n do read(a[i]);
writeln;
ip0 := 0;
ip1 := 0;
ipa := 0;
for i := 1 to n do
if a[i] > 0 then
if (a[i] mod 2) = 0 then begin
ip0 := ip0 + 1;
p0[ip0] := a[i]
end
else begin
ip1 := ip1 + 1;
p1[ip1] := a[i]
end
else begin
ipa := ipa + 1;
pa[ipa] := a[i]
end;
write('Положительные четные: ');
for i := 1 to ip0 do write(p0[i]:4);
writeln;
write('Положительные нечетные: ');
for i := 1 to ip1 do write(p1[i]:4);
writeln;
write('Остальные: ');
for i := 1 to ipa do write(pa[i]:4);
writeln
end.
Тестовое решение:
Введите 20 элементов массива: 3 8 -5 -8 3 0 4 12 -13 42 0 8 6 24 15 -9 47 18 53 -30
Положительные четные: 8 4 12 42 8 6 24 18
Положительные нечетные: 3 3 15 47 53
Остальные: -5 -8 0 -13 0 -9 -30