Ответы на вопрос:
Var a: longint; n, i: integer; s: array [1..10000] of integer; begin read(n); a: =0; for i: =1 to n do read (s[i]); for i: =1 to n do if s[i]> =0 then a: =a+sqr(s[i]); writeln(a); end.
Популярно: Информатика
-
Ленка602.03.2020 13:25
-
Лизавеликая111106.07.2021 00:42
-
СлаваТрегубкин07.09.2021 00:15
-
privitvsim21.02.2021 01:07
-
vladislavkraso11.12.2020 05:00
-
валерия83215.06.2022 15:53
-
Dhshssh14.12.2021 19:06
-
алюберт28.05.2023 08:38
-
Tara880829.01.2023 15:02
-
ЛиЗоЧкА19817.03.2023 16:16