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

Question

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

Comments

число элементов из двух одинаковых чисел? чего то туговато у меня соображается. Это что должно вообще получится? формулировки задания не понимаю

---

состоящих из 2-ух одинаковых ЦИФР. Слово перепутала ))

---

массив обязательно руками вводить? или можно random?

---

можно random

---

ты еще тут?)

---

я забылся

Answer 1

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<br>      k:=k+1;  n:=n+1; 
    end; 
 end;
end;   
 writeln('Kol-vo chisel - ', k/2);
end.

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