Дан массив целых чисел из 12 элементов. поменять местами первый отрицательный с первым положительным.
163
414
Ответы на вопрос:
Var a: array[1..12] of integer; i,flag, indmax, indmin,k: integer; begin randomize; writeln('исходный массив: '); for i: =1 to 12 do begin a[i]: =random(20)-10; writeln('a[',i,']=',a[i]); end; i: =0; flag: =1; while flag< > 0 do begin i: =i+1; if a[i]< 0 then begin indmin: =i; flag: =0; end; end; i: =0; flag: =1; while flag< > 0 do begin i: =i+1; if a[i]> 0 then begin indmax: =i; flag: =0; end; end; k: =a[indmax]; //замена a[indmax]: =a[indmin]; a[indmin]: =k; writeln('конечный массив: '); for i: =1 to 12 do writeln('a[',i,']=',a[i]); end.
Популярно: Информатика
-
sasharsm12.11.2021 21:32
-
isabaevisa24.11.2022 15:18
-
Phkgd22.06.2023 23:33
-
novkristinaa22.02.2020 08:28
-
иляяя1яяя21.03.2022 19:33
-
ArtemTony26.03.2023 04:27
-
Skinner5682504.10.2021 06:08
-
valiente10.02.2021 07:06
-
Лиза20011111111.01.2023 20:26
-
обгрейд24.06.2022 12:56