Найти сумму положительных элементов массива,стоящих на чётных местах ,прошу! ! 20б!
263
395
Ответы на вопрос:
Program n1; const n=15; var a: array[1..n] of integer; i,sum: integer; begin randomize; sum: =0; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(40)-20; write(a[i],' '); if (i mod 2=0) and (a[i]> 0) then sum: =sum+a[i]; end; writeln; writeln('искомая сумма: ',sum); end.
Популярно: Информатика
-
brain7522.10.2022 02:21
-
Owlysoulowl16.11.2020 12:40
-
АхМеД223313.01.2020 04:19
-
федя17223.10.2021 23:49
-
Werty018327.02.2022 20:27
-
zill8125.03.2021 11:55
-
AlinaElsukova01.09.2022 08:02
-
котяточка18.12.2020 20:11
-
Зорро201716.02.2023 01:32
-
aaskarova200431.01.2021 22:21