Нужна по информатике за 11 класс по теме массивы в оценка за ! 100 ! 1)(в паскале)дана матрица размера м x n.в каждой ее строке найти количество отрицательных элементов и вывести результаты на экран с указанием номера строки. 2)дан двумерный массив.определить среднее арифметическое элементов главной диагонали массива. будьте добры,хотя бы одну

// pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в матрице: ');   var n: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var b: =a.rows.select((x,r)-> (x.where(q-> q< 0).count,r));   foreach var x in b do write(x[1]+1,')',x[0],'  ') end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5,8] ***   40  50    4  44  10  13  39    5   10 -41  -9  38  27  -9  34    9     8  29  37 -18  13 -41  23  -8   15 -49 -27 -31 -22  -4  46 -31   -36  36  34 -43 -33 -23 -24  -6 1)0  2)3  3)3  4)6  5)6  // pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк/столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',m,'] ***');   var a: =matrrandom(m,m,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var s: =0;   for var i: =0 to m-1 do s: =s+a[i,i];   writeln('ср.арифметическое равно ',s/m) end. пример количество строк/столбцов в матрице: 5 *** исходная матрица [5,5] ***   10  47  -5 -37  30   44  39    1  24  46   47    6 -26 -32 -16   -8 -49  18  15  22     4    4 -48 -36 -14 ср.арифметическое равно 4.8

№1 var m,n,i,j,col: integer; ar: array[1..100,1..100] of integer; begin write('строки : '); read(m); write('столбцы : '); read(n); for i: =1 to m do begin write(i,': '); for j: =1 to n do begin read(ar[i,j]) end; end; for i: =1 to m do begin for j: =1 to n do begin if (ar[i,j]< 0) then col: =col+1; end; writeln(i,': ',col); col: =0; end; end.  №2var m,n,i,j,sum,col: integer; ar: array[1..100,1..100] of integer; begin write('строки : '); read(m); write('столбцы : '); read(n); for i: =1 to m do begin write(i,': '); for j: =1 to n do begin read(ar[i,j]) end; sum: =0; end; for i: =1 to m do begin for j: =1 to n do begin if (i=j) then begin col: =col+1; sum: =sum+ar[i,j]; end; end; end; writeln(sum/col); end. 

Аладдин джинн "волшебная лампа алладина" из цикла 1000 и 1 ночьалёша старик хоттабыч "старик хоттабыч" л.и.  лазурь иван серый волк "молодильные яблоки и живая вода" народ незнайка воздушный шар "незнайка в солнечном городе" н.н. носов женя "цветик-семицветик"в.п. катаев