Задать вопрос
12 октября, 17:28

Двухмерный массив. Найти сумму элементов главной диоганали матрицы.

Кто сможет? помощь

+1
Ответы (1)
  1. 12 октября, 20:31
    0
    program z_array;

    uses crt;

    var a:array[1 ... 100,1 ... 100] of integer;

    m, n, i, j:byte;

    sum:integer;

    begin

    clrscr;

    writeln ('Введите количество строк матрицы');

    readln (n);

    writeln ('Введите количество столбцов матрицы');

    readln (m);

    writeln ('Введите элементы матрицы');

    for i : = 1 to n do

    for j : = 1 to m do

    begin

    write ('a[', i,',', j,'] = ');

    readln (a[i, j]);

    end;

    writeln ('Данная матрица');

    writeln;

    sum : = 0;

    for i : = 1 to n do

    begin

    for j : = 1 to m do

    begin

    write (a[i, j]:5);

    if (j < i) then

    sum : = sum + a[i, j];

    end;

    writeln;

    writeln ('Искомая сумма = ', sum);

    readln;

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Двухмерный массив. Найти сумму элементов главной диоганали матрицы. Кто сможет? помощь ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы