Ответы на вопрос:
Program gt; var x,y: array[1..1000]of integer; k,n,i,j,r: integer; begin read(n); k: =0; for i: =1 to n do begin read(x[i]); if(x[i]< 0)then begin k: =k+1; y[k]: =x[i]*2; end; end; for i: =1 to k do begin for j: =1 to k-i do begin r: =y[j]; if(y[j]> y[j+1])then begin y[j]: =y[j+1]; y[j+1]: =r; end; end; end; for i: =1 to k do begin write(y[i],' '); end; end.это метод пузырка
Популярно: Информатика
-
filippovdanis11.11.2022 10:46
-
Sofiya150923.06.2022 21:16
-
AlumaZuma16.04.2020 03:18
-
oksanadavidienozexft24.02.2022 20:50
-
Fastik2613.03.2022 11:46
-
Пелагея908705.01.2023 00:17
-
huh10624.03.2020 23:44
-
rustik161926.02.2023 07:49
-
Alusa66605.08.2021 03:14
-
genagnatyk12301.05.2023 05:32