Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

В двумерном массиве, состоящем из целочисленных элементов, поменять местами в каждой строке наибольший и наименьший элементы.

Ответ оставил Гость

Var a:array[1..100,1..100] of integer;i,j,n,m,max,min:integer;beginwrite (Введите количество строк: );read(n);writeln;write (Введите количество элементов в строке: );read(m);writeln;writeln(Введите массив: );for i:=1 to n do beginfor j:=1 to m do beginwrite( a[,i,,,j,]=);read(a[i,j]);end;writeln;end;writeln;writeln(Исходный массив: );for i:=1 to n do beginfor j:=1 to m dowrite(a[i,j], );writeln;end;writeln;writeln(Конечный массив: );for i:=1 to n do beginmin:=a[i,1]; max:=a[i,1];for j:=2 to m do beginif (min>a[i,j]) then min:=a[i,j];if (max