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

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) Составьте алгоритм вычислен

Составьте программу в Кумире. В кафе продают лимонад по N руб. и мороженое по T руб. Составьте алгор

ДАЮ 30 БАЛЛОВ! №1 Написана функция is_millennium(year), которая возвращает True, если год year дел

Составить программу на Паскале, которая в двумерном массиве определяет максимальный элемент в каждой

Дан двумерный массив А размера n*n. Элементы каждой строки разделить на диагональный элемент. При фо

4) Smallest measurement unit of data is a _​

Опиши дії, які ти зможеш виконувати на комп'ютері а) стаціонарному б) планшетному в) кишеньковому Д

Массив из 40 элементов ввести по формуле. Первый элемент равен 2, а каждый следующий - утроенному пр

Сообщение занимает 3 страницы по 25 строк. В каждой строке записано по 60 символов. Сколько символов

Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1 ( F 1 = F 2 = 1 ), а каждое