Натйти максимальный по модулю элемент и его порядковый номер. составить программу в паскале
108
146
Ответы на вопрос:
Var a: array [0..10] of integer; i, m: integer; begin for i : = 0 to 10 do begin a[i] : = random(50) - 25; writeln('[', i, '] => ', a[i]); end; for i : = 0 to 10 do if (abs(a[i]) > abs(a[m])) then m : = i; writeln('[', m, '] => ', a[m]); end.
Популярно: Информатика
-
dimakrochak30.10.2020 10:57
-
iragafieva25.05.2023 06:24
-
Kinana9919.09.2020 09:18
-
анапияабдыганиева30.11.2021 05:25
-
Боня30120501.10.2020 01:15
-
btrawee3421.04.2020 21:27
-
лариса21909.04.2020 09:51
-
РафикЖирафик13.04.2020 19:57
-
Віка3456628.12.2021 03:35
-
hhhnnnvvv24.04.2023 21:35