Вмассиве a найти максимальный отрицательный элемент и заменить его значением первого нулевого элемента
248
452
Ответы на вопрос:
Program vladimir37005; const n=5; var a: array[1..n] of integer; i,min,k: integer; begin for i: =1 to n do begin write('a[',i,']='); read(a[i]); end; min: =a[1]; k: =1; for i: =1 to n do if (a[i] < min) then begin min: =a[i]; k: =i; end; for i: =1 to n do if (a[i] < 0) and (a[i] > min) then begin min: =a[i]; k: =i; end; a[k]: =0; for i: =1 to n do write(a[i],' '); end.
Популярно: Информатика
-
eliot4015.03.2020 15:39
-
rlicSosanex12.11.2020 14:20
-
Сutie200414.12.2020 11:24
-
zaharovivan15001.10.2021 10:53
-
ZVer0071114.03.2022 19:10
-
takhtarkina12.06.2021 16:28
-
qwerty2000304.03.2021 16:51
-
YerasylAmangeldi20.12.2020 00:28
-
пстрвчлвяряу16.11.2021 06:05
-
cvetok55505.08.2022 16:26