Помогите пожалуйста. Безотлагательно нужны решения желая бы неких задач!!!!!! Паскаль ABC1. Имеется
Помогите пожалуйста. Срочно необходимы решения желая бы некоторых задач!!!!!! Паскаль 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]gt;=0 then
polzh:=polzh+1
else
otric:=otric+1;
if polzhgt;otric then
Writeln('Положительных чисел больше')
else
if polzhlt;otric then
Writeln('Отрицательных чисел больше')
else
Writeln('Положительных и отрицательных чисел поровну');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.