Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Матрицы

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

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

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

саняСеребряный
13.06.13
Учеба и наука / Информатика
1 ответ

Лучший ответ по мнению автора

Валентина

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.

Буду благодарна, если отметите 
14.06.13
Лучший ответ по мнению автора

Еva
от 100 p.
Рейтинг: 122 043
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее