Водномерном массиве, вводимом с клавиатуры и состоящем из 10 вещественных элементов, вычислить: 1) номер максимального по модулю элемента массива; 2) сумму элементов массива, расположенных после первого положительного элемента.
229
320
Ответы на вопрос:
Program n1; const n=10; var a: array[1..n] of real; sum: real; i, i2: integer; b: boolean; begin i2: =1; b: =false; for i: =1 to n do begin readln(a[i]); if abs(a[i])> abs(a[i2]) then i2: =i; end; writeln('номер максимального по модулю: ',i2); sum: =0; for i: =1 to n do begin if b=false then begin if a[i]> 0 then b: =true; end else sum: =sum+a[i]; end; writeln('сумма: ',sum); end.
Популярно: Информатика
-
Дария00813.01.2023 19:37
-
lilililiza26.01.2021 18:23
-
dia20705.03.2021 17:19
-
Akimneznaet12323.07.2020 12:55
-
EnotGermany10.06.2022 22:02
-
Nastja219619.12.2020 16:34
-
HET22804.11.2021 08:58
-
MariaWoLF200606.10.2020 09:59
-
pro100rak217.09.2020 06:36
-
Darksholnic08.12.2022 11:14