Помогите решить задачу по программированию на языке паскаль, зарание спасибо.
Поменять местами столбец матрицы (n=4;m=6), содержащий максимальный элемент со столбцом, содержащим минимальный элемент.
Поменять местами столбец матрицы (n=4;m=6), содержащий максимальный элемент со столбцом, содержащим минимальный элемент.
const
N = 4; // размер массива
M = 6;
a = 1; // диапазон случайных значений
b = 90;
var
ar : array[1..N,1..M] of integer;
i,j,min,max,indMinI,indMinJ,indMaxI,indMaxJ,temp:integer;
begin
for i := 1 to N do begin
for j := 1 to M do begin
ar[i,j] := random(b - a + 1) + a; // заполняем случайными значениями
if(i = 1) and (j = 1) then begin // инициализируем
min := ar[i,j]; indMinI := i; indMinJ := j;
max := ar[i,j]; indMaxI := i; indMaxJ := j;
end;
write(ar[i,j]:3);
if(ar[i,j] > max) then begin // находим макс
max := ar[i,j]; indMaxI := i; indMaxJ := j;
end;
if(ar[i,j] < min) then begin // находим мин
min := ar[i,j]; indMinI := i; indMinJ := j;
end;
end;
writeln();
end;
// меняем мин и макс
temp := ar[indMinI,indMinJ];
ar[indMinI,indMinJ] := ar[indMaxI,indMaxJ];
ar[indMaxI,indMaxJ] := ar[indMinI,indMinJ];
// выводим исправленный массив
writeln();
for i := 1 to N do begin
for j := 1 to M do
write(ar[i,j]:3);
writeln();
end;
end.
Подписывайся! ! Школьное и студентческое пограммирование PASCAL, C++, PHP, HTM. Решение задач по информатике vk.co m/stud_programming Поменяем=) и язык не забудь уточнить=)