Подсчитать сумму квадратов четных элементов. Pascal Срочно!!!

Question

Подсчитать сумму квадратов четных элементов.
Pascal
Срочно!!!

Comments

Массива

Answer 1

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.

Answer 2

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('S = ',a.Where(t->t.IsEven).Select(t->t*t).Sum)
end.

Пример
n= 19
49 -39 -47 67 8 -10 43 -26 58 89 13 61 -98 11 8 89 44 76 30
S = 22484