Информатика Архивный вопрос

Нужна срочная помощь по информатике за 11 класс по теме Массивы В Паскале.Помогите,пожалуйста,решается оценка за четверть!!!ДАЮ 100 БАЛЛОВ!!!!!!!
1)(В паскале)Дана матрица размера М x N.В каждой ее строке найти количество отрицательных элементов и вывести результаты на экран с указанием номера строки.
2)Дан двумерный массив.Определить среднее арифметическое элементов главной диагонали массива.
Будьте добры,хотя бы одну задачу

10 комментария:
да, пожалуй, вы правы по всем пунктам )
Этот язык проще Питона, а мощность его даже выше. В него вошло все самое вкусненькое из Питона, C# и Haskell
И при этом осталась совместимость со старыми паскалями, если она требуется по задаче.
Обычно "СИшных паскалененавистников" с этой версией окончательно примиряет тернарный оператор: var z:=x>y?x*y:x-y;
если всё же нужна вторая задача в "старошкольной" форме то вот
var m,n,i,j,sum,col:integer;ar:array[1..100,1..100] of integer;beginwrite('строки : '); read(m);write('столбцы : '); read(n);for i:=1 to m do beginwrite(i,': ');for j:=1 to n do beginread(ar[i,j])end;sum:=0;end;for i:=1 to m do beginfor j:=1 to n do beginif (i=j) then begin col:=col+1; sum:=sum+ar[i,j]; end;end;end;writeln(sum/col);end.
Спасибо огромное
рады помочь
Зря не дали в поле для для ответа. комментарии отрежутся потом, а Ваше решение могло бы пригодиться части школьников - эти ответы индексируются поисковиками.
последую совету, спасибо

Ответы