Задать вопрос Регистрация
Помочь другим

  • дана целочисленная матрица 5 на 5. Определить положительные элементы на побочной диагонали.(Паскаль)

Ответы 1

  • const    n = 5;   // Размер матрицы

    var    i, e, r: Integer;    m : array [1..n, 1..n] of Integer;begin

     

       for i:= 1 to n do       for e:= 1 to n do       begin          //m[i, e] := Random(101) - 50;                // Заполнение случайными числами          Write('m[',i,',',e,'] = '); Readln(m[i, e]);    // Ручной ввод матрицы       end;    r := n;    for i := 1 to n do    begin

          if m[i, r] >= 0 then          Write(m[i, r], ' ');

     

          dec(r);    end;    Readln; end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years