|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.10.2012, 12:25 | #1 |
Пользователь
Регистрация: 24.09.2012
Сообщений: 51
|
LAB5 Вложенные циклы + массивы
program Project1;
{$APPTYPE CONSOLE} {Вложенные циклы + массивы Заданная матрица целых чисел M x N, компоненты которой могут быть и нулями. Сделать контрольный вывод матрицы на экран в естественном виде. Матрицу инициалиазуваты как константу (двумерный массив). 11.Поминяты местами столбцы матрицы (5х2), которые содержат наименьший и наибольший элементы, вывести новую матрицу на экран.} uses SysUtils, Windows; var i,j,maxI,maxJ,minI,minJ : integer; const Mas: array[1..5,1..2] of integer = ((1,2), (3,4), (5,6), (7,8), (9,10)); begin Writeln('matrix 5x2:'); for j:=1 to 5 do begin for i:=1 to 2 do begin Write(mas[i,j],' '); end; Writeln; end; maxI:=1; maxJ:=1; minI:=1; minJ:=1; for j:=1 to 5 do for i:=1 to 2 do begin if mas[i,j]>mas[maxI,maxJ] then begin maxI:=i; maxJ:=j; end; if mas[minI,minJ]>mas[i,j] then begin minI:=i; minJ:=j; end; end; Writeln('min = ',mas[minI,minJ]); Writeln('max = ',mas[maxI,maxJ]); readln; end. как поменять местами столбцы с мин. и макс. елементами , подскажите пожалуйста? |
12.10.2012, 12:53 | #2 |
Пользователь
Регистрация: 21.12.2011
Сообщений: 54
|
Номера столбцов известны. Меняй местами элементы построчно из этих столбцов.
Код:
|
14.10.2012, 20:32 | #3 |
Пользователь
Регистрация: 24.09.2012
Сообщений: 51
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вложенные циклы + массивы | kuy | Паскаль, Turbo Pascal, PascalABC.NET | 19 | 09.10.2013 21:32 |
Массивы. Вложенные циклы | Usefur | Помощь студентам | 4 | 27.12.2010 22:48 |
двумерные массивы.вложенные циклы | Горящее сердце | Помощь студентам | 2 | 26.05.2010 20:29 |
массивы и вложенные циклы | cobrita24 | Помощь студентам | 10 | 03.12.2009 15:22 |
Двумерные массивы, вложенные циклы, матрицы | denis12345 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 15.06.2009 03:09 |