Найти все неповторяющиеся элементы двумерного массива - Turbo Pascal

Формулировка задачи:

Решите, пожалуйста. Найти все неповторяющиеся элементы двумерного массива целых чисел размерностью 6*3. Заполнение массива осуществить с клавиатуры.

Код к задаче: «Найти все неповторяющиеся элементы двумерного массива - Turbo Pascal»

textual
const
    N = 6;
    M = 3;
var
    i, j, k, un: Byte;
    uniqs: Array[1..N*M] Of Integer;
    ar: Array[1..N, 1..M] Of Integer;
    isUniq: Boolean;
begin
    un := 0;
    for i := 1 to N do
    begin
        for j := 1 to M do
        begin
            Write('ar[', i, '][', j, ']=');
            ReadLn(ar[i, j]);
            isUniq := True;
            k := 1;
            while ((k <= un) And (isUniq)) do
            begin
                isUniq := (uniqs[k] <> ar[i, j]);
                Inc(k);
            end;
            if (isUniq)
            then
            begin
                Inc(un);
                uniqs[un] := ar[i, j];
            end;
        end;
        WriteLn;
    end;
    Write('Неповторяющиеся элементы:');
    for k := 1 to un do
        Write(' ', uniqs[k]);
    WriteLn;
end.

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы