3. Найти наименьший элемент двумерного массива. Элементы задаются на интервале [-30, 45]. Желательно побыстрее
147
ОТВЕТЫ
Const
N = 3;
M = 4;
Var
A:array[1..N,1..M] 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 M do
Begin
A[i,j]:=random(76)-30;
if A[i,j] lt; A[iMin,jMin] then
Begin
iMin:=i;
jMin:=j
End;
Write(A[i,j]:3, )
End;
WriteLn;
End;
WriteLn(Min = A[,iMin,,,jMin,] = ,A[iMin,jMin]);
End.
Исходный массив:
-11 -3 -16 44
-1 -10 38 -20
33 -22 17 10
Min = A[3,2] = -22
N = 3;
M = 4;
Var
A:array[1..N,1..M] 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 M do
Begin
A[i,j]:=random(76)-30;
if A[i,j] lt; A[iMin,jMin] then
Begin
iMin:=i;
jMin:=j
End;
Write(A[i,j]:3, )
End;
WriteLn;
End;
WriteLn(Min = A[,iMin,,,jMin,] = ,A[iMin,jMin]);
End.
Исходный массив:
-11 -3 -16 44
-1 -10 38 -20
33 -22 17 10
Min = A[3,2] = -22
264
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Beschyutl
Как презентацию можно сделать более привлекательной? ...
2019-03-17 10:51:08
Владислав
2019-03-17 10:47:33
Лермонтов
Информатика.Срочно.Фото прикреплено Пожалуйста,не .относитесь к этому спустя рукава) надеюсь ...
2019-03-17 10:38:45
Siseklole