Ответы на вопрос:
Program bifi; var a: array[1..10] of real; s,i: real; begin s: =0; for i: =1 to 10 do begin readln(a[i]); if a[i]> 0 then s: =s+a[i]; end; writeln(s); readln; end.
Популярно: Информатика
-
irinakotik1714.04.2021 04:45
-
Dimon2287210.09.2021 17:31
-
еккаа11.07.2022 09:18
-
jil35620.06.2022 08:36
-
bubnovasofya2017.06.2022 03:33
-
vika73772202.01.2020 20:01
-
alinadogarowa22.12.2022 06:34
-
Манюня58918.01.2023 13:26
-
Маракуйя200213.04.2023 11:22
-
ersultanplay08.01.2020 07:34