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

194

365

Посмотреть ответы 2

Ответы на вопрос:

Qwertyuiopasdfghjkzz

Информатика

4,7(94 оценок)

Const nn = 20; var a: array[1..nn, 1..nn] of integer; i, j, n, k: integer; begin write('введите число строк (столбцов) матрицы: '); readln(n); randomize; writeln('исходная матрица'); for i : = 1 to n do begin for j : = 1 to n do begin a[i, j] : = random(101) - 50; write(a[i, j]: 4) end; writeln end; writeln('количество отрицательных элементов по столбцам'); for j : = 1 to n do begin k : = 0; for i : = 1 to n do if a[i, j] < 0 then inc(k); write(k: 4) end; writeln end. тестовое решение: введите число строк (столбцов) матрицы: 10 исходная матрица 22 12 -15 -42 29 49 26 -26 -3 -5 18 45 2 2 -3 -28 20 -15 -16 29 7 48 -13 -33 38 -22 39 28 -6 -50 23 37 -33 50 7 27 39 -8 -35 43 1 17 -11 -29 -35 -1 -27 37 -25 -36 8 -49 -17 34 -27 24 -26 -32 -30 0 -41 48 30 -3 23 31 28 3 45 20 -16 -23 -30 -8 -23 40 9 -35 -48 -12 -45 -49 2 -20 -7 21 4 -16 26 33 3 21 -29 15 33 4 38 43 -1 -15 количество отрицательных элементов по столбцам 3 3 7 6 5 3 2 6 8 5