Есть ли одинаковые элементы в матрице? (Паскаль)

Posted by obzor under Delphi

Дана матрица MxN.
Как проверить, есть ли на четных позициях i-х строк матрицы одинаковые элементы? (Если есть, то вывести слово «Yes», если нету, то — «No»).

newerow1989

const m=10;
      n=8;
var i,j,k:byte;
    p:array[0..m-1,0..n-1] of byte;
    d:boolean;
begin
   Randomize;
   For i:=0 to m-1 do
   begin
      For j:=0 to n-1 do
      begin
         p[ i,j]:=Random(20);
         Write(p[ i,j],'  ');
      end;
      Writeln;
   end;
   For i:=0 to m-1 do
   begin
      d:=false;
      For j:=0 to (n-1) div 2-2 do
         For k:=j+1 to (n-1) div 2-1 do
            d:=d or (p[ i,j*2+1]=p[ i,k*2+1]);
      If d then
         Writeln('Yes') else
         Writeln('No');
   end;
   Readln;
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)