Дан массив с на n элементов. все положительные элементы массива с увеличить на 0,4,нулевые заменить на 0,5, определить сумму отрицательных элементов,произведение положительных элементов
248
378
Ответы на вопрос:
Program one; var a: array[1..9999] of rial; i,m,n,k: integer; begin k: =1; readln (n); for i: =1 to n do begin readln(a[i]) ; end; for i: =1 to n do begin if (a[i]> 0) then a[i]: =a[i]*0,4; if (a[i]=0) then a[i]: =0,5; if (a[i]> 0) then k: =k*a[i]; if (a[i])< 0) then m: =m+a[i]; end; writeln (k,m); end .
Популярно: Информатика
-
lizabolovinceva30.04.2021 19:09
-
Асенька200509.02.2023 22:34
-
artemsuraaye31.03.2021 14:04
-
54st02.05.2023 17:57
-
Ника29030523.06.2021 12:48
-
Raul02050728.05.2023 06:38
-
lenaa66612.05.2021 07:09
-
ksenyaandreevn22.08.2020 19:37
-
СергейПеро04.03.2020 14:15
-
ekaterina5velikaya24.04.2021 04:35