Задать вопрос
16 февраля, 06:47

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

Желательно побыстрее

+1
Ответы (1)
  1. 16 февраля, 10:39
    0
    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] < 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
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «3. Найти наименьший элемент двумерного массива. Элементы задаются на интервале [-30, 45]. Желательно побыстрее ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы