profile
Опубликовано 6 лет назад по предмету Информатика от kartavcevm

найти количество положительных элементов матрицы , находящихся на главной диагонали

  1. Ответ
    Ответ дан pacixor
    var
      a: array [1..10, 1..10] of integer;
      i, j: byte;
    begin
    randomize;
    writeln(' *** Исходный массив *** ');
    for i := 1 to 10 do
    begin
        for j := 1 to 10 do
        begin
            a[i, j] := random(41)-20;
            write(a[i, j]:5);
        end;
        writeln;
    end;
    writeln('Положительные эл. главной диагонали: ');
    for i := 1 to 10 do
      for j := 1 to 10 do
        if ((i = j) and (a[i, j] > 0)) then
          write(a[i, j], ' ');
    end.
Самые новые вопросы