Ввести массив из 30 случайных чисел промежутка [50..99], подсчитать число элементов, состоящих из 2-ух одинаковых чисел.
Помогите, пожалуйста.

Program n1;
Uses Crt;
var  a: array[1..30] of integer; 
 k,m,i,j,n: integer;
begin 
   for i:=1 to 30 do
    begin 
     a[i]:=random(50)+50; 
     write(a[i], );
    end;
    writeln; writeln(---); 
        k:=0; n:=1;
for i:=1 to 30 do begin
   n:=0;   m:=a[i];
   for j:=1 to 30 do begin
     if (m=a[j]) and (i<>j) and (n<2) then begin
      k:=k+1;  n:=n+1; 
    end; 
 end;
end;   
 writeln(Kol-vo chisel - , k/2);
end.

Вроде бы сделал так, как требовалось.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.