Даны две квадратные матрицы А и В размером 3 х3. Требуется найти С=А х В.

Составить программу нахождения числа строк матрицы А (N, N), сумма элементов у которых отрицательна.

pascal abc

1) 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.

2) 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.