program p;
uses crt;
const m = 3;
var A:array[1..m,1..m] of byte;
    B:array[1..m,1..m] of boolean;
    i,j,k:byte;
begin  clrscr;
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(2);
    write(a[i,j]:2,' ');
   end;
   writeln
  end;
  for i:=1 to m do
   for j:= 1 to m do
    B[i,j]:=false;
  for i:= 1 to m do begin
   for j:= 1 to m do begin
  k:=0;
  while true do begin
  k:=k+1;
 if k>m then break;
 if (not (A[i,k] = A[k,j])) then break;
 if k=m then begin B[i,j]:= true; break end;
 end;
 end;
 end;
for i:= 1 to m do
 for j:=1 to m do
  if B[i,j]=true then writeln('strochka ',i, ' sovpadaet so stolbcom ', j);
readln;
end.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.12.2009, 23:25

Ответы с готовыми решениями:

Блок-схема
составить блок-схему к программе Program Massiv2; сonst n=10; var a: array of real; ...

Блок-схема
сделайте плз. блок-схему на эту программу, "Прогрмма составлена правельно" !!! задание:Дан текст....

Блок схема
Помогите с блок схемой program Ex; const nmax=15; var h,s:array of real; n,i:integer; ...

Блок схема
Помогите с блок схемами данных программ Program Lab_6_1_1; uses crt; var i,a,n,pol,otr,nul:...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.12.2009, 23:25

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Блок-схема
uses crt; var f,g,p:file of real; r:real; c:char; begin clrscr; assign(f,'fileF');...

Блок схема
Ребят, помогите пожалуйста написать блок схему к задаче. Даны 2 массива --> упорядочить по...

блок схема
Есть 4 задачи по всем нада блок схему составить помогте срочно, а то башка уже не варит: uses crt;...

Блок-Схема
Прошу.. Напишите пожалуйста блок-схему. procedure One; var sum,i, count: integer; ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх