Регистрация
простоhhh
15.11.2022 22:17
Информатика
Есть ответ 👍

Https://vbuuh.com/watch/KjeLVs65MWGxEfo
https://vbuuh.com/watch/5RFMUTmnjsV2wKl
https://vbuuh.com/watch/kzZdObJHMCaQlK1

201
377
Посмотреть ответы 1

Ответы на вопрос:

RANDOM328
RANDOM328
4,7(33 оценок)
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.

Популярно: Информатика