В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
kat243
kat243
05.11.2021 12:54 •  Информатика

Впаскале. в двумерном массиве g(7,5) поменять минимальный элемент 2 строки и максимальный элемент 5 столбца. в полученной матрице вычислить значение произведения элементов главной диагонали. заменить значение третьего элемента в первой строке на значение произведения.

Показать ответ
Ответ:
Vity144
Vity144
23.06.2020 05:49
Const
    n = 7;
    m = 5;

var
    a: array[1..n, 1..m] of integer;
    min2_j, max5_i, i, j, p: integer;
    c: char;

begin
    min2_j := 1;
    max5_i := 1;
    for i := 1 to n do
    begin
        writeln;
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:n);
            if(i = 2) and (a[2, min2_j] > a[i, j]) then
                min2_j := j;
            if (j = 5) and (a[max5_i, 5] < a[i, j]) then
                max5_i := i;
        end;
    end;
   
    i := a[2, min2_j];
    a[2, min2_j] := a[max5_i, 5];
    a[max5_i, 5] := i;
   
    writeln;
    p := 1;
    for i := 1 to n do
    begin
        writeln;
        for j := 1 to m do
        begin
            write(a[i, j]:n);
            if(i = j) then
                p := p * a[i, j];
        end;
    end;
   
    a[1, 3] := p;
    writeln;
    for i := 1 to n do
    begin
        writeln;
        for j := 1 to m do
            write(a[i, j]:n);
    end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота