Free pascal. задать массив, и из массива а в б переписать сначала все нули, потом отрицательные числа и потом все положительные. числа рандомные.
118
271
Ответы на вопрос:
Var ar,ar2: array[1..10] of integer; i: integer; begin randomize; writeln('first array: '); for i: =1 to 10 do begin; ar[i]: =random(10)-3; write(ar[i]: 4); if ar[i]=0 then ar2[i]: =0; end; writeln; writeln('1-st final array: '); for i: =1 to 10 do begin; write(ar2[i]: 4); if ar[i]< 0 then ar2[i]: =ar[i]; end; writeln; writeln('2-st final array: '); for i: =1 to 10 do begin; write(ar2[i]: 4); if ar[i]> 0 then ar2[i]: =ar[i]; end; writeln; writeln('3-st final array: '); for i: =1 to 10 do write(ar2[i]: 4); end.
Популярно: Информатика
-
Айшат7727016.11.2021 04:50
-
lmaxluk09921.11.2020 06:11
-
doc251027.12.2020 09:41
-
ВаняАВЕР200604.09.2022 09:26
-
crankbait19.04.2020 00:19
-
alinahan44409.02.2020 20:07
-
akbotawka0224.05.2022 20:53
-
Daniel20001118.09.2021 23:51
-
Денис228ннпп20.02.2021 17:27
-
lizismik1524.07.2020 03:06