Дан двумерный массив размером 6×6. Массив задается генератором случайных чисел.Поменять местами в каждой строке минимальный и последний элемент. Решить на PascalABC.NET Оформить в виде процедуры.
Дан двумерный массив размером 6×6. Массив задается генератором случайных чисел.Поменять местами в каждой строке минимальный и последний элемент.
Решить на PascalABC.NET
Оформить в виде процедуры.
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
procedure MatPrint(a:array[,] of integer);
begin
for var i:=0 to Length(a,0)-1 do begin
for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4);
Writeln
end
end;
procedure MatSwap(a:array[,] of integer);
begin
for var i:=0 to Length(a,0)-1 do begin
var jmin:=0;
for var j:=1 to Length(a,1)-1 do
if a[i,j]
Не нашли ответ?
Похожие вопросы