1. даны два одномерных массива разной размерности. для каждого из заданных одномерных массивов выполнить: последовательно переписать в другой массив отрицательные элементы начального массива. с применение подпрограмм и процедур желательно

Const   nn = 20; type   ta = array[1..nn] of integer; procedure fillarray(var a: ta; n, min, max: integer); var   i, k: integer; begin   k : = max - min + 1;   for i : = 1 to n do a[i] : = random(k) + min end; procedure writearray(a: ta; n, p: integer); var   i: integer; begin   for i : = 1 to n do write(a[i]: p);   writeln end; procedure copynegative(var a, b: ta; m: integer; var n: integer); var   i: integer; begin   n : = 0;   for i : = 1 to m do       if a[i] < 0 then       begin           inc(n);           b[n] : = a[i]       end end; var   n: integer;   x, y: ta; begin   randomize;   fillarray(x, 10, -50, 50);   writeln('исходный массив');   writearray(x, 10, 4);   copynegative(x, y, 10, n);   writeln('массив из отрицательных элементов');   writearray(y, n, 4);   fillarray(x, 8, -200, 100);   writeln('исходный массив');   writearray(x, 12, 5);   copynegative(x, y, 12, n);   writeln('массив из отрицательных элементов');   writearray(y, n, 5); end. тестовое решение: исходный массив   -12  17  35  -4 -45    8  33  -8 -47  -4 массив из отрицательных элементов   -12  -4 -45  -8 -47  -4 исходный массив   -150 -174    92 -168    69  -60 -165  -78  -47    -4      0      0 массив из отрицательных элементов   -150 -174 -168  -60 -165  -78  -47    -4

#include< stdio.h> #include< conio.h> int main(int argc, char *argv[]) {       int i, j, a, s;       for(i = 10; i < 100; i++)       {             s = i / 10 + i % 10;             for(j = 2; j < 10; j++)             {                   a = i*j;                   if (a / 100 +(a / 10) % 10 + a % 10 ! = s) a = 0;             }             if (a)! printf("%d ",i);       }       getch(); }