Нужны решения хотя бы некоторых паскаль abc 1. имеется целочисленный массив n*m элементов. найти номер строки с минимальной суммой модулей элементов. 2. имеется целочисленный массив n*m элементов. найти индексы максимального элемента таблицы и значение максимума. 3. имеется целочисленный массив n*m элементов. каких элементов в массиве больше отрицательных или положительных? 4. имеется целочисленный массив n*m элементов. сообщить есть ли в таблице отрицательные элементы. 5.имеется целочисленный массив n*m элементов. найти среднее арифметическое элементов массива. определить и вывести количество элементов массива, значение которых превышает это среднее значение.
var i,j,n,m: integer;
a: array [1..1000, 1..1000] of integer;
polzh, otric: integer;
begin
randomize;
Readln(n,m);
for i:=1 to n do
for j:=1 to m do
Readln(a[i,j]);
polzh:=0;
otric:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>=0 then
polzh:=polzh+1
else
otric:=otric+1;
if polzh>otric then
Writeln('Положительных чисел больше')
else
if polzh<otric then
Writeln('Отрицательных чисел больше')
else
Writeln('Положительных и отрицательных чисел поровну');
end.