Дана целочисленная прямоугольная матрица. Найти сумму элементов тех столбцов, которые содержат хотя бы один отрицательный элемент. Примечание: Размеры массивов задаются именованными константами. Значения элементов массивов вводятся с клавиатуры, генерируются случайным образом или инициализируются в программе (значения по умолчанию). Способ задания элементов массива выбирается пользователем. Все операции над массивами выполняются отдельными функциями.

const

nmax=100;

var

a: array[1 ... nmax, 1 ... nmax] of integer;

i, j, s, k, n: integer;

f: text;

begin

assign (f,'laba_7. txt');

rewrite (f);

write ('Введите размер матрицы: '); readln (n);

writeln ('матрица:');

randomize;

for i:=1 to n do

begin

k:=0; s:=0;

for j:=1 to n do

begin

a[i, j]:=random (50) - 5;

write (a[i, j]:4);

if a[i, j]<0 then inc (k);

s:=s+a[i, j];

end;

if k>0 then

begin

writeln (f,' Сумма элементов в строке ', i,' s = ', s);

write (' Сумма элементов в строке ', i,' s = ', s);

end;

if k=0 then

begin

writeln (f,' В строке нет отрицательных элементов');

write (' В строке нет отрицательных элементов');

end;

writeln;

end;

close (f);

readln;

end.