Составьте программу на языке паскаль используя массив найдите сумму положительных элементов массива
256
353
Ответы на вопрос:
Program massiv; var a: array[1..10] of integer; i,s: integer; begin for i: =1 to 10 do begin write ('введите a[',i,']='); readln (a[i]); end; for i: =1 to 10 do begin if a[i]> 0 then s: =s+a[i]; end; writeln ('сумма положительных элементов массива равна ',s); end.
Популярно: Информатика
-
larisavenzel06.09.2022 22:24
-
FantomLord2430.04.2023 01:50
-
халк6505.03.2020 22:39
-
Mrfest18.09.2022 19:10
-
katerinarakova31.10.2022 18:14
-
PashinDaniil23.09.2020 03:31
-
pakipysi25.08.2021 03:20
-
Lenchik63299203.03.2022 23:49
-
shaduraalya10.08.2022 22:38
-
zerg31424.10.2020 03:45