Составить программу на Паскале, которая в двумерном массиве определяет максимальный элемент в каждой строке и записывает его в одномерный массив. Для определения максимального элемента в строке использовать функцию,а для ввода и вывода массивов - процедуру.

1 ответы

  • Ответ:

    Program mass;

    uses crt;

    const N=5; M=5;

    var

    i,j,min,index :integer;

    mas: array [1..N,1..M] of integer;

    od_mas: array [1..M] of integer;

    dig: array [1..M] of integer;

    BEGIN

    RANDOMIZE;

    //заполняем массив случайными числами

    For i:=1 to N do BEGIn

    For j:=1 to M do BEGIN

    mas[i,j]:=Random(10);

    WRITE(mas[i,j],' ');

    END;

    WRITELN;

    END;

    WRITELN;

    // находим наименьший элемент в столбце

    For i:=1 to N do BEGIn

    min:= mas[1,i];

    index:=i;

    For j:=1 to M do BEGIN

    // проверка на максимальный элемент

    IF (mas[j,i]<min) THEN BEGIN

    min:=mas[j,i]; index:=j;

    END;

    END;

    od_mas[i]:=index;

    dig[i]:=min;

    WRITELN (i, '-ый столбец. Наименьший элемент - ', dig[i], ', его номер: ', od_mas[i]);

    END;

    WRITELN;

    END.

Последнее для темы Информатика

1.Зачем нужен оператор выбора? Как можно обойтись без него? 2.Как в операторе выбора записать, что

Свод правил по которым будет функционировать игра​

Помогите плиз, 4/5, и на вопрос мой компьютер будет выполнять следующее? Он необходим для

5сынып информатика 114бет 5 тапсырма калай?тез керек болып тур

¬(¬a⇒¬b)∨¬(¬a⇒b)∨a∧b упростить выражение.

Қажетті нәтижеге жеткізетін әрекеттердің рет ретімен орындалуы​

Пользователь вводит число, которое горит на экране исполнителя. Команды исполнителя /2, /5, -3. Скол

6. Укажите ошибку в программе: program imya; var d: integer; begin k:=8; writeln('k='.k) end.

Какое слово спрятано в анаграмме «лйвёсвфмбглб»?

Свод правил, по которым будет функционировать игра **е***** помогите пожалуйста прошу​