Ответы на вопрос:
Первое var a: array[1..100] of integer; i,j: integer; procedure swap(var x,y: integer); var t: integer; begin t : = x; x : = y; y : = t end; begin for i: =1 to 100 do a[i]: =random(100); for j: =1 to 99 do for i: =1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]); for i: =2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]); end. второе var a: array[1..100] of integer; i,j: integer; procedure swap(var x,y: integer); var t: integer; begin t : = x; x : = y; y : = t end; begin for i: =1 to 100 do a[i]: =random(100); for j: =1 to 99 do for i: =1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]); if a[1]< > a[2] then writeln('a[1]=',a[1]); for i: =2 to 99 do if (a[i]< > a[i+1]) and (a[i]< > a[i-1]) then writeln('a[',i,']=',a[i]); if a[100]< > a[99] then writeln('a[100]=',a[100]); end.
Популярно: Информатика
-
11654116.12.2020 16:38
-
Jordano23Mirra25.04.2022 12:40
-
sumat221.12.2021 01:08
-
lopkin12.12.2021 09:48
-
DimkaNevidimka1310.05.2021 07:41
-
roma3456924.05.2020 21:59
-
Popopoghdhz30.08.2021 07:06
-
AlexCameron11.01.2022 06:17
-
гуманитарий001308.10.2021 09:26
-
nataliy657829.04.2020 10:16