Программы на языке Паскаль на тему "Массивы" (9 класс)

Условие задачи.

Дана последовательность чисел. Найти количество различных чисел в этой последовательности.

Последовательность чисел представим массивом и используем два цикла и в каждом цикле свой счетчик. Внешний цикл счетчик для подсчета количества различных элементов, внутренний цикл – счетчик для проверки совпадающих элементов в массиве.

Программы:

a)     Наиболее простой алгоритм с использованием двух массивов.

const n=10;        //Количество различных чисел c выводом на экран до и после

var a,m:array[1..n]of integer;

    i,j,k,p:integer;

begin

  for i:=1 to n do

    begin

      a[i]:=random(10); write(a[i]:2)

    end;

  writeln;k:=0;

  for i:=1 to n do

    begin

      p:=0;

      for j:=i+1 to n do

        if (a[i]=a[j]) then begin inc(p); break end;

      if p=0 then begin inc(k); m[k]:=a[i] end

    end;

  writeln(' Количество различных элементов массива=',k);

  for i:=1 to k do write(m[i]:2); writeln

end.

const n=10;                    

var a:array[1..n]of integer;

    i,j,k,p:integer;

begin

  for i:=1 to n do

    begin

      a[i]:=random(10); write(a[i]:2)

    end;

  writeln;k:=0;

  for i:=1 to n do

    begin

      p:=0;

      for j:=i+1 to n do

        if (a[i]=a[j]) then begin inc(p); break end;

      if p=0 then begin inc(k); write(a[i]:2) end

    end;

  writeln(' Количество различных элементов массива=',k)

end.

program z56_268;    //Количество различных чисел

const n=10;

var   m:array[1..n] of integer;

      i,j,c:Integer;

      p:Boolean;

begin

  for i:=1 to n do m[i]:=random(10);

  for i:=1 to n do write(m[i],' '); writeln;

  c:=0;

  for i:=1 to n do

    begin

     p:=False;

     for j:=i+1 to n do

       begin

         if (m[i]=m[j]) then

           begin

             p:= True;

             Break;

           end;

       end;

     if not p then inc(c);

   end;

WriteLn(c);

end.