Question

1. заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10,10] выведите ее на экран.
2. устроить все элементы матрицы и вывести ее на экран.
3.найти минимальный и максимальный элементы матрицы и их номера форма вывода

минимальный элемент a[3,4] = -6

максимальный элемент
a [2,2] =10

4.вывести на экран строку, сумма элементов которой максимальна. формат вывода:
строка 2: 3 5 8 9 8

Answer 1

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.