Ответы на вопрос:
Program gt; var a: array[1..100000]of integer; i,h,j,k,p: integer; begin randomize; readln(h); for i: =1 to h do begin a[i]: =random(101)-50; write(a[i],' '); end; writeln; for i: =1 to h-1 do for j: =1 to h-1 do begin k: =a[j+1]; if(a[j]> a[j+1])then begin a[j+1]: =a[j]; a[j]: =k; end; end; p: =0; k: =1; for i: =2 to h do begin if(a[i]=a[i-1])then k: =k+1; if(a[i]< > a[i-1])or(i=h)then begin if(k> =2)then begin p: =p+1; writeln(a[i-1],' ',a[i-1]); end; k: =1; end; end; writeln(p,' кол-во парных чисел без повторений'); end.
Популярно: Информатика
-
Eo4G07.07.2021 13:00
-
АлисияАлисия04.04.2020 05:52
-
VladGulevevatiy24.09.2021 12:30
-
SoniaGradient23.04.2022 16:53
-
ilyamilovanov115.03.2022 09:13
-
BUPA128.04.2021 14:08
-
1234566788djxdh12.05.2023 20:40
-
jgkdjsnsnbdndndndjd03.07.2022 21:49
-
gennadiiyy24.01.2022 16:16
-
2006veronika3428.06.2022 12:05