• Дан двумерный массив. Проверить, есть ли в нем одинаковые элементы. Помогите, пожалуйста, написать программу в паскале

Ответы 3

  • Извините, исправил проблему, с нераспознаванием двух соседних элементов:
  • ...for k:=i+1 to n-1 do for z:=j+1 to n-1 do if (tmp = a[k][z]) or (tmp = a[i][j]) then...
    • Автор:

      sidney30
    • 6 лет назад
    • 0
  • Program arr;Const n=3;var i, j, tmp, k, z:integer;    c:boolean;    a:array [1..n,1..n] of integer;beginc:=false;for i:=1 to n do  for j:=1 to n do    read(a[i][j]);for i:=1 to n do  for j:=1 to n do    begin    tmp:=a[i][j];    for k:=i+1 to n do      for z:=j+1 to n do        if tmp = a[k][z] then        c:=true;    end;writeln;for i:=1 to n dobegin  for j:=1 to n do    write(a[i][j], ' ');  writeln;end;if c = true then   writeln('В данном массиве есть равные друг другу элементы')   else writeln('Элементы, равные друг другу, отсутсвуют в данном массиве');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years