Написать программу на Paskal ABC
Ответы
Ответ:
Листинг и результат выполнения
program ArrayMaxMin;
const
m = 5;
n = 5;
var
arr: array [1..m, 1..n] of integer;
i, j, max, min: integer;
begin
randomize;
for i := 1 to m do
for j := 1 to n do
arr[i, j] := random(100);
for i := 1 to m do
begin
max := arr[i, 1];
min := arr[i, 1];
for j := 1 to n do
begin
if arr[i, j] > max then max := arr[i, j];
if arr[i, j] < min then min := arr[i, j];
end;
if max + min > 0 then writeln('Строка ', i, ': сумма максимального и минимального элементов положительна');
end;
end.
_________________
обьяснение: програма создаёт двумерный массив размером m*n, заполняет его случайными целыми числами от 0 до 99, ну и потом находит строки, в которых сумма макс. и мин. элементов положительна. Значения констант m и n можна изменить для изменения размера массива.
