|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2011, 21:11 | #1 |
Пользователь
Регистрация: 26.12.2011
Сообщений: 15
|
Массив
Каким образом определяется или описывается массив в данной задаче?
В данной квадратной целочисленной матрице порядка 17 указать индексы всех элементов с наибольшим значением. Program Z2; Type matrix=array[1..100, 1..100] of real; mass=array[1..100] of real; Var matrica: matrix; row: mass; column: mass; i,j,M,N,row_index,column_index: integer; max_value:real; begin write('Матрица порядка 17'); writeln; N := 17; M := 17; for i:=1 to N do begin for j:=1 to M do begin matrica[i,j] := random(200) - 100; end; end; writeln('Введенная матрица:'); for i:=1 to N do begin for j:=1 to M do begin write(' ',matrica[i,j]); end; writeln; end; max_value := -100; row_index := 0; column_index := 0; for i:=1 to N do for j := 1 to M do if max_value < matrica[i,j] then max_value := matrica[i,j]; writeln('max_value:', max_value); for i:=1 to N do begin for j := 1 to M do begin if matrica[i,j] = max_value then begin inc(row_index); inc(column_index); row[row_index] := i; column[column_index] := j; end end end; writeln('Индексы элементов с наибольшим значением:'); for i := 1 to row_index do begin writeln('[', row[i], ',', column[i],']'); end end. |
28.12.2011, 22:55 | #2 |
Форумчанин
Регистрация: 15.10.2011
Сообщений: 306
|
в данной программе ты используешь 3 массива
matrica: matrix; row: mass; column: mass; двух типов matrix=array[1..100, 1..100] of real; {двумерный массив} mass=array[1..100] of real; {одномерный массив}
Если твоя программа выполняет мистические действия, значит, ты сделал что-то невероятно тупое...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С# задан массив 5х5. сформировать массивы А и В. в массив А поместить элементы с четными индексами, в массив В с нечетны | Koksa | Помощь студентам | 0 | 10.10.2011 11:26 |
Запись координат в массив в реал тайм, Как записать координаты в массив | Dark19 | Visual C++ | 2 | 21.06.2011 18:45 |
Из массив А получить массив В, удвоив все нечётные элементы удвоены ( на Pascal) | KARTER | Помощь студентам | 1 | 18.06.2011 19:58 |
Массив - Нужно написать массив и распечатать на экран с конца в начало(язык С++) | econ | Помощь студентам | 1 | 29.05.2011 22:02 |
Упорядочить массив в порядке возрастания и напечатать входной и исходный массив. | TheVenny | Помощь студентам | 3 | 26.11.2008 15:06 |