• 3. Найти наименьший элемент двумерного массива. Элементы задаются на интервале [-30, 45].
    Желательно побыстрее

Ответы 1

  • Const   N = 3;   M = 4;Var   A:array[1..N,1..M] of integer;   i,j,iMin,jMin:integer;BeginRandomize;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] < 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
    • Автор:

      misha20
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years