|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск максимального элемента и сортировка столбцов матрицы.
Помогите пожалуйста составить программу на Паскале с таким заданием:
Составить программу, предусматривающую чтение исходной матрицы с дискового файла. Переставить столбцы в порядке возрастания наибольших элементов. Чтение с матрицы с памяти компьютера я сделал, присвоив ей mas[i,j], теперь нужно в этой матрице mas[i,j] найти максимальный элемент в каждом столбце и переставить столбцы по возрастанию максимального элемента. На этом и застрял. Код:
program lab2; uses crt; const n=5; m=5; var mas: array[1..n,1..m] of integer; ft: text; i,j:integer; begin clrscr; assign(ft,'123.txt'); reset(ft); i:=1; while not seekeof(ft) do begin j:=1; while not seekeoln(ft) do begin read(ft, mas[i,j]); j:=j+1; end; readln(ft); i:=i+1; end; writeln; writeln('Ishodnaya matrica:'); writeln; for i:=1 to n do begin for j:=1 to m do write(' ',mas[i,j]); writeln; end; readkey; end. |