• Вопрос по информатике:

    Нужно написать программу на PascalABC.

    Проверьте, является ли двумерный массив симметричным относительно главной диагонали. Главная диагональ — та, которая идёт из левого верхнего угла двумерного массива в правый нижний.

    Входные данные
    Программа получает на вход число n<=100, являющееся числом строк и столбцов в массиве. Далее во входном потоке идет n строк по n чисел, являющихся элементами массива.

    Выходные данные
    Программа должна выводить слово yes для симметричного массива и слово no для несимметричного.

    Примеры
    входные данные
    3
    0 1 2
    1 5 3
    2 3 4
    выходные данные
    yes
    входные данные
    3
    0 0 0
    0 0 0
    1 0 0
    выходные данные
    no

    • Автор:

      lozano25
  • https://znanija.com/task/32516177 помогите пожалуйста(ИНФОРМАТИКА)

    • Отвечал:

      bunnylhja
    • 0

    program raf105;

    var

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

     i,j,n: integer;

     x: boolean;

    begin

    x:= True;

    write('Размер матрицы: ');

    readln(n);

    writeln('Заполните матрицу');

    for i:=1 to n do

     for j:=1 to n do

       readln(a[j,i]);

    for i:=1 to n do

    begin

    writeln;

     for j:=1 to n do

     begin

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

       if x and (a[j,i] <> a[i,j])

         then x:= False;

     end;

    end;

    writeln;

    if x

     then writeln('yes')

     else writeln('no');

    end.

    PascalABC 3.4.2

    • Отвечал:

      sherlynsuarez
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска