Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Паскаль] циклы(for..to)

Автор: Anyutka 25.12.2009, 19:57

Дана таблица целых чисел a1, a2, ..., an. Подсчитать количество различных чисел. Составьте новую таблицу, состоящую из различных элементов данной, входящих в нее в такой же последовательности.

Автор: neic 26.12.2009, 01:30

Код


program cicle;
uses crt;
const n=5;
type
    MAS=ARRAY[1..N] OF INTEGER;
var
    A,B:MAS;
    I,J,P,FIND:INTEGER;
BEGIN
CLRSCR;
FOR I:=1 TO N DO
BEGIN
    WRITELN('VVEDITE ',I, ' ELEMENT');
    READ(A[I]);
END;

P:=1;

FOR I:=1 TO N DO
BEGIN
    FOR J:=1 TO P DO
    BEGIN
        IF A[I]=B[J] THEN
        BEGIN
            FIND:=1;
        END;
    END;

    IF FIND = 0 THEN
    BEGIN
       B[P]:=A[I];
       P:=P+1;
    END;
END;

WRITELN;

FOR I:=1 TO P-1 DO
BEGIN
    WRITE(B[I],' ');
END;
READKEY;
END.