Дан массив из n элементов. найти сумму отрицательных элементов с четными индексами и отдельно с нечетными. (паскаль) 9 класс
298
375
Ответы на вопрос:
Var n,i,s1,s2: integer; a: array [1..32767] of integer; begin readln(n); s1: =0; s2: =0; for i: =1 to n do read(a[i]); for i: =1 to n do begin if (a[i]< 0) and (i mod 2=0) then s1: =s1+a[i] end; for i: =1 to n do begin if (a[i]< 0) and (i mod 2< > 0) then s2: =s2+a[i] end; writeln(s1); writeln(s2); end.
Популярно: Информатика
-
voronbakhozs9gh23.09.2021 01:12
-
Сач1602.02.2021 09:07
-
piece0fcake21.05.2020 13:27
-
БадяМэн21.04.2022 13:48
-
jekaroikp00z4425.09.2020 01:33
-
benten243429.05.2023 00:49
-
joom324.07.2020 03:20
-
LINKAyO03.09.2020 22:51
-
znani516.04.2021 08:53
-
Т121625.02.2022 06:39