Question

Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [10;10] и вывести ее на экран.Удвоить все элементы матрицы и вывести ее на экран. Найти минимальные и максимальные элементы в матрице, указать номера.Просто матрица и удвоенная есть. Теперь нужно найти мин. и макс. значенияprogram ff;uses crt;const n=8;m= 5;var a:array [1..n, 1..m] of integer;i,j:integer;beginwriteln ('Матрица:');for i:=1 to 8 do beginfor j:=1 to 5 do begin a[i,j]:=-10+random(21); write(a[i,j]:4);end;writeln;end;for i:=1 to 8 dofor j:=1 to 5 doa[i,j]:=a[i,j]*2;writeln ('Удвоенная матрица:');for i:=1 to 8 do beginfor j:=1 to 5 dowrite(a[i,j]:4);writeln;end;end.

Answer 1

Готово..............
UPD.Добавил минимальное и максимальное значения