program Array8x5;
var
A: array [1..8, 1..5] of Integer;
i, j, imin, imax, jmin, jmax, s, smax: Integer;
begin
// 1. Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10,10] выведите ее на экран.
Randomize;
for i := 1 to 8 do begin
WriteLn;
for j := 1 to 5 do begin
A [i, j] := Random (21) - 10;
Write (A [i, j] :3, ' ');
end;
end;
// 2. Устроить все элементы матрицы и вывести ее на экран.
WriteLn;
for i := 1 to 8 do begin
WriteLn;
for j := 1 to 5 do begin
A [i, j] := A [i, j] * 3;
Write (A [i, j] :3, ' ');
end;
end;
// 3.Найти минимальный и максимальный элементы матрицы и их номера
imin := 1;
imax := 1;
jmin := 1;
jmax := 1;
for i := 1 to 8 do begin
for j := 1 to 5 do begin
if A [i, j] > A [imax, jmax] then begin
imax := i;
jmax := j;
end;
if A [i, j] < A [imin, jmin] then begin
imin := i;
jmin := j;
end;
end;
end;
WriteLn; WriteLn;
WriteLn ('минимальный элемент А[', imin, ',', jmin, '] = ', A [imin, jmin]);
WriteLn ('максимальный элемент А[', imax, ',', jmax, '] = ', A [imax, jmax]);
// 4.Вывести на экран строку, сумма элементов которой максимальна.
imax := 1;
smax := - MaxInt;
for i := 1 to 8 do begin
s := 0;
for j := 1 to 5 do begin
s := s + A [i, j];
end;
if s > smax then begin
smax := s;
imax := i;
end;
end;
Write ('строка ', imax, ': ');
for j := 1 to 5 do
Write (A [imax, j], ' ');
WriteLn;
ReadLn;
end.
