Даны две квадратные матрицы А и В размером 3 х3. Требуется найти С=А х В. Составить программу нахождения числа строк матрицы А (N, N), сумма элементов у которых отрицательна. pascal abc

var a:array[1 ... 3,1 ... 3] of integer;

b:array[1 ... 3,1 ... 3] of integer;

c:array[1 ... 3,1 ... 3] of integer;

i, j:integer;

begin;

writeln ('A array:');

for i:=1 to 3 do

begin;

writeln;

for j:=1 to 3 do

begin;

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

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

end;

end;

writeln;

writeln ('B array:');

for i:=1 to 3 do

begin;

writeln;

for j:=1 to 3 do

begin;

b[i, j]:=random (-10,10);

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

end;

end;

writeln;

writeln ('C array:');

for i:=1 to 3 do

begin;

writeln;

for j:=1 to 3 do

begin;

c[i, j]:=a[i, j]*b[i, j];

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

end;

end;

end.

Второй вариант выполнения программы:

var a:array[1 ... 1000,1 ... 1000] of integer;

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

begin;

randomize;

readln (n);

writeln ('A array:');

for i:=1 to n do begin;

writeln;

for j:=1 to n do

begin;

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

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

end;

end;

for i:=1 to n do begin;

for j:=1 to n do

u+=a[i, j];

if u<0 then inc (k);

u:=0;

end;

writeln;

write ('Result:', k);

end.