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

pascal abc

Зависит от версии компилятора. Я поправил для Вас.

Первое сделал, второе что то с array не так

Значит, немного изуродуем код.

Окей, жду

Уже готово.

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 dobegin;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 dobegin;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 dobegin;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.