срочно!!!паскаль!!!!!!!
В массиве 10х10, сформированном случайным образом поменять столбец, содержащий максимальный элемент с первым
В массиве 10х10, сформированном случайным образом поменять столбец, содержащий максимальный элемент с первым
More Questions From This User See All
Answers & Comments
Verified answer
Vara:array[1..10,1..10] of integer;
i, j, j1, max, s: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
readln(a[i,j]);
max := a[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
if a[i,j]>max then
begin
max := a[i,j];
j1:=j;
end;
for i:=1 to 10 do
begin
s:=a[i, 1];
a[i, 1] := a[i, j1];
a[i, j1] := s;
end;
end.