Найти количество различных чисел в

одномерном массиве (turbo Pascal)

Объяснение:

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Var A:array[1..100] of integer;

   i,j,k,n:byte;

   b:boolean;

Begin

   write('Введите размерность: ');readln(n);

   k:=0;

   For i:=1 to n do

    Begin

     A[i]:=random(30)-15;

     write(A[i]:4);

    End;

   For i:=1 to n do

    Begin

     b:=true;

     For j:=i+1 to n do

      if A[i]=A[j] then b:=false;

     if b then inc(k);

    End;

   writeln;

   if k>0 then writeln('Различных чисел: ',k) else writeln('Различных чисел нету');

   readln;

End.