Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 49.

Определить, является ли данный квадратный массив симметричным относительно своей главной диагонали.

{Если массив является симметричным, то для него выполняется равенство a[i,j]=a[j,i] для всех i=l,..., n и j=l,..., n при условии, что i>j. Но если встретится хотя бы одна такая пара, что соответствующие элементы не будут равны, то массив будет несимметричным }

program prim1;
  uses crt;
  var a: array[1..100,1..100] of integer;
      i,j,n:integer;
begin
  clrscr;
  randomize;
  write('n='); readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(45)-22;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  readln;
  for i:=1 to n do
  for j:=1 to n do
    if (i>j) and (a[i,j]<>a[j,i] then
    begin
      writeln ('no');
      exit;
    end;
  writeln('yes');
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100