Нужны решения хотя бы некоторых паскаль abc 1. имеется - вопрос №24518851 от aiko20052015 29.07.2020 04:57

Question

Информатика: Нужны решения хотя бы некоторых паскаль abc 1. имеется целочисленный массив n*m элементов. найти номер строки с минимальной суммой модулей элементов. 2. имеется целочисленный массив n*m элементов. найти индексы максимального элемента таблицы и значение максимума. 3. имеется целочисленный массив n*m элементов. каких элементов в массиве больше отрицательных или положительных? 4. имеется целочисленный массив n*m элементов. сообщить есть ли в таблице отрицательные элементы. 5.имеется целочисленный массив

aiko20052015 · Answer

Задание №3var i,j,n,m: integer;     a: array [1..1000, 1..1000] of integer;    polzh, otric: integer;beginrandomize;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....