Кто-нибудь сможет сделать? 1 в массиве с = {1, 2, -3, 0, -1, -7, -9, 4, 5, -6, 3, 2, 9, 10, -7, -9, -5} найти количество соседств двух положительных элементов и количество соседств двух отрицательных элементов. (примечание: “соседними” можно считать элементы сi и ci+1, где i = 1, …, 16 2 отсортировать в матрице столбцы по убыванию значений элементов в первой строке. матрицу задать самостоятельно.

"косой" - существительное, так как в предложении отвечает на вопрос "кто? "

Существительно. (кто) косой

1) статья из прошлогодней газеты 2) из-за ошибки журналиста известного журналиста считают умершим 3) например, "температура кипящей воды - 100с" 4) соответственно, "кипящая вода горячая" 5) "скорый поезд из новосибирска прибыл на курский вокзал в 02.35 20 февраля 2010 года" 6) "поезд приехал в москву 20 числа" 7) учебник 7 класса по для семиклассника 8) учебник 7 класса по для первоклассника 9) текст на языке для человека 10) иноязычный сленг для человека, не говорящего на этом языке

Const   m = 50; function nok(a, b: integer): integer; var   c: integer; begin   if a = b then nok : = a   else begin       c : = a * b;       repeat           if a > b then a : = a - b else b : = b - a;           until a = b;       nok : = c div a   end end; var   a: array[1..m] of integer;   i, j, n, p, q, nk, mn: integer; begin   randomize;   write('введите количество элементов в массиве (2..50)- ');   readln(n);   writeln('исходный массив');   for i : = 1 to n do   begin       a[i] : = random(100) + 1;       write(a[i], ' ')   end;   writeln;   p : = a[i];   q : = a[2];   mn : = p * q;   for i : = 1 to n - 1 do       for j : = i + 1 to n do       begin           nk : = nok(a[i], a[j]);           if (mn > nk) then           begin               p : = a[i];               q : = a[j];               mn : = nk           end       end;   writeln('пара: ', p, '-', q, ' нок=', mn); end. тестовое решение: введите количество элементов в массиве (2..50)- 20 исходный массив 19 36 99 86 79 83 73 69 27 14 87 67 49 84 98 79 38 4 60 22 пара: 14-4 нок=28