Найти все неповторяющиеся элементы матрицы

@Дмитрий1818 · Регистрация: 02.12.2010

Студворк — интернет-сервис помощи студентам

Найти все неповторяющиеся элементы двумерного массивацулых чисел.

18.04.2011, 20:30

Pascal

{ Найти все неповторяющиеся элементы двумерного массивацулых чисел. . }
var a:array [1..100;1..100] of integer;
    m,n,i,j: integer;
begin
  readln (n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random (100);
          writeln (a[i,j],' ');
        end;
        writeln ;
      end;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]<>a[i+1,j+1] then writeln (a[i,j],' ');
end.

@Дмитрий1818 0 / 0 / 0 Регистрация: 02.12.2010 Сообщений: 28
		1
	Найти все неповторяющиеся элементы матрицы 13.04.2011, 18:32. Показов 1173. Ответов 1 Метки нет (Все метки) Найти все неповторяющиеся элементы двумерного массивацулых чисел. 0

Опции темы

Найти все неповторяющиеся элементы матрицы

Решение