7.Найти
произведение двух квадратных матриц А(3*3) и В(3*3).

9.Дан массив
А(3*4). Найти номера всех максимальных элементов в каждой строке.

10.Дан массив
А(3*4). Найти в каждой строке сумму элементов, кратных 3.



11.Дан массив
А(3*4). Найти количество элементов в каждой строке, больших среднего
арифметического элементов данной строки.

паскаль

Program asd;USES crt;Const n=3;Const m=4;var A:array[1..n,1..m] of integer;i,j,p,s:integer;BEGINClrscr;For i:=1 to n dobeginfor j:=1 to m dobeginA[i,j]:=random(10);Write(' ',A[i,j]:2)end;Writeln;end;Writeln;For i:=1 to n dobeginS:=0;for j:=1 to m doif A[i,j] mod 3=0 thenbeginS:=S+A[i,j];end;Writeln(' Symma v stro4ke ',i,': ',s);end;END.

это была 10-я