1) поменять местами минимальный четный элемент с последним. 2)на место максимального отрицательного элемента поместить сумму элементов кратных 3. (в программе паскаль)
178
447
Ответы на вопрос:
1) program z1; uses crt; var a: array[1..100] of integer; n,i,x,max,min,k: integer; beginrandomize; readln(n); for i: =1 to n do begin a[i]: =random(100); write(a[i]: 4); end; writeln; min: =a[2]; for i: =3 to n do begin if a[i] mod 2=0 then if a[i]< min then begin min: =a[i]; k: =i; end; end; x: =a[k]; a[k]: =a[n]; a[n]: =x; for i: =1 to n dowrite(a[i]: 4); max: =a[1]; end.
Сохранить (записать на носитель), обработать, создавать, хранить, копировать, пересылать.
Популярно: Информатика
-
SmOkEnSHit22.06.2020 13:33
-
1SnakeDen115.03.2022 13:22
-
zaikayes27.11.2022 05:35
-
mlyz04.04.2023 07:40
-
lera7856727.07.2020 13:56
-
osipolara07.03.2022 00:15
-
nikitkasorokin216.11.2020 10:26
-
Valera745131.10.2020 07:25
-
kkarinanexK23.01.2023 18:49
-
ксения28200615.07.2022 17:35