44 бала решить две задачки ПаскальЗадание 1Создать одномерный массив А, состоящий из сумм столбцов матрицы В8,5. Определить в созданном масс

23 ноября 2013 / Разное

44 балла 

Помогите решить две задачки (Паскаль)

Задание 1
Создать одномерный массив А, состоящий из сумм столбцов матрицы В(8,5). Определить в созданном массиве минимальный элемент и его местоположение, а также произведение всех элементов.

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

  • 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.


Добавить комментарий