Необходимо написать программку на PascalABC.Проверьте, является ли двумерный массив симметричным
Необходимо написать программку на PascalABC.
Проверьте, является ли двумерный массив симметричным условно основной диагонали. Главная диагональ та, которая идёт из левого верхнего угла двумерного массива в правый нижний.
Входные данные
Программка получает на вход число nlt;=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
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] lt;gt; a[i,j])
then x:= False;
end;
end;
writeln;
if x
then writeln('yes')
else writeln('no');
end.
PascalABC 3.4.2
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.