Учеба и наука

Решено

Матрицы - вопрос №660653

Даны натуральные числа n,q и квадратная матрица порядка n целочисленных элементов, где n,q≤10. Поменять местами столбец, содержащий максимальный элемент матрицы, со столбцом с номером q.

Написать программу на паскале.

июнь 13, 2013 г.

Сообщить о нарушении

Всего ответов: 1

Валентина

3-й в

411 отзыв

program w2;
const n=4;
var a:array[1..n,1..n] of integer;
i,j,q,temp,max,nommax:integer;

begin
writeln('vvedite stolbik');
readln(q);
writeln('vvedite chisla');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
max:=a[1,1]; nommax:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j] >= max then
begin
max:=a[i,j]; nommax:=j;
end;
if q<>nommax then
for i:=1 to n do
begin
temp:=a[i,q];
a[i,q]:=a[i,nommax];
a[i,nommax]:=temp;
end;

for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:8);
writeln;
end;

end.