Напишите решение в паскале: массив а заполнен случайным образом ста целыми числами от 0 до 1000, определить имеются ли в массиве повторяющиеся элементы.

var

a: array[1..100] of integer;

povt,i,j,elem: integer;

begin

povt: =0;

 

randomize;

for i: =1 to 100 do

a[i]: =random(1001);

 

for j: =1 to 100 do

povt: =0;

 

begin

for i: =1 to 100 do

if a[i]=a[j] then

begin

elem: =a[i];

povt: =povt+1;

 

end;  

 

povt: =povt-1;

write('число= '+elem+ ' количество повторений= '+ povt);

end;

 

 

 

 

 

 

 

 

 

Const   nn=50; var   i,n,a,b,im,min: integer;   x: array[1..nn] of integer; begin   clrscr;   write('n= '); read(n);   write('b,a= '); read(b,a);   im: =0;   for i: =1 to n do begin       write('x[',i,']='); read(x[i]);       if im=0 then im: =i       else begin if x[i]< x[im] then im: =i end   end; writeln;   if (im=0) or (not (x[im] in [b..a])) then writeln('no solution')   else writeln('x[',im.']=',x[im],' is minimal');   readkey end. тестовое решение: n=5 b,a= 4 8 x[1]=9 x[2]=7 x[3]=9 x[4]=6 x[5]=8 x[4]=6 is minimal

  алгоритм на метаязыке (формальный язык):

 

1. начало

      введите а

      введите б

      введите в

      введите г

      д = (а + б + в + г) /4

      напечатать  д

      конец

 

 

  2.   начало

      введите  х             х=5

      введите  у             у=-11

      т = х                         т=5

      х = у                         х=-11

      у = т                         у=5

      напечатать  х

      напечатать  у

 

      конец