Вопрос по информатике:
Двумерный массив (10x10). Найти и вывести номер минимального элемента.
Пожаловаться
- 22.07.2018 01:24
- Информатика
- remove_red_eye 8438
- thumb_up 13
Ответы и объяснения 1
Const
N = 10;
Var
A:array[1..N,1..N] of integer;
i,j,iMin,jMin:integer;
Begin
Randomize;
iMin:=1;
jMin:=1;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ');
if A[i,j]
iMin:=i;
jMin:=j;
End
End;
WriteLn
End;
WriteLn;
WriteLn('Min(A) = A[',iMin,',',jMin,'] = ',A[iMin,jMin])
End.
Пример:
Исходный массив:
4 -8 -4 10 8 10 -1 -7 -5 -1
-3 -8 0 4 7 -1 2 1 3 9
8 -3 8 7 -5 6 -10 -5 6 6
7 -8 4 4 -6 0 6 -6 -7 -8
-5 -7 0 -8 -4 4 -7 0 1 -3
-3 -1 9 9 -4 -4 -5 0 4 -9
9 -7 -3 0 3 -5 -1 6 -1 -3
4 -3 -2 1 4 5 8 6 1 2
3 0 5 -1 -2 -3 -7 5 -3 8
-6 -4 0 -9 -7 -9 6 10 -1 -10
Min(A) = A[3,7] = -10
N = 10;
Var
A:array[1..N,1..N] of integer;
i,j,iMin,jMin:integer;
Begin
Randomize;
iMin:=1;
jMin:=1;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ');
if A[i,j]
iMin:=i;
jMin:=j;
End
End;
WriteLn
End;
WriteLn;
WriteLn('Min(A) = A[',iMin,',',jMin,'] = ',A[iMin,jMin])
End.
Пример:
Исходный массив:
4 -8 -4 10 8 10 -1 -7 -5 -1
-3 -8 0 4 7 -1 2 1 3 9
8 -3 8 7 -5 6 -10 -5 6 6
7 -8 4 4 -6 0 6 -6 -7 -8
-5 -7 0 -8 -4 4 -7 0 1 -3
-3 -1 9 9 -4 -4 -5 0 4 -9
9 -7 -3 0 3 -5 -1 6 -1 -3
4 -3 -2 1 4 5 8 6 1 2
3 0 5 -1 -2 -3 -7 5 -3 8
-6 -4 0 -9 -7 -9 6 10 -1 -10
Min(A) = A[3,7] = -10
Пожаловаться
- 23.07.2018 18:47
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы