Решить в паскале ! ! дан массив. сформировать три массива, включив в первый положительные чётные элементы массива, во второй - положительные нечётные, в третий - все остальные.

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

Var     i,j,n: integer;     s,a,t: string; begin write('введи текст: '); readln(s);   n: =length(s); for i: =1 to n do    begin       a: =a+s[i];     if (s[i]=' ') or (i=n) then       begin         if i=n then a: =a+' ';         for j: = length(a) downto 1 do   t: =t+a[j];         a: ='';         end       end; writeln(t) end.