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

214

414

Посмотреть ответы 2

Ответы на вопрос:

polinka2002761

Информатика

4,4(77 оценок)

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.вроде бы сделал так, как требовалось.