Лови. Не проверял.
| Код |
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
A: Array [1..5, 1..8] Of Integer; //5 строк, 8 столбцов
I, J, K: Integer;
C: Boolean;
begin
for I := 1 to 4 do //по строкам (можно 4 раза, 5-й лишний будет)
begin
for J := 1 to 5 do //снова по строкам
begin
if J = I then
continue; //строку саму с собой сравнивать нечего
C := True; //допустим, строки одинаковы
for K := 1 to 8 do //по элементам строк, их равное количество, поэтому одного цикла хватит
if A[I, K] <> A[J, K] then
begin
C := False;
break;
end;
if C then
begin
WriteLn('There are equal strings.');
ReadLn;
exit;
end;
end;
end;
WriteLn('There are NO equal strings.');
ReadLn;
end.
|
|