Регистрация
маша111221
16.03.2021 18:29
Информатика
Есть ответ 👍

, за верное решение накину

105
266
Посмотреть ответы 1

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

gdhdf
gdhdf
4,7(24 оценок)
Var  a: array[1..1000] of integer; n,i,s: integer; begin   write('write size array: '); readln(n);   for i: =1 to n do   read(a[i]);   s: =0;   for i: =1 to n do   if a[i] mod 2=0     then s: =s+sqr(a[i]);   writeln(s);   readln;   readln end.

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