Var
a:array of integer;
i,b,c:integer;
BEGIN
write('Введите размер массива - ');
readln(b);
setlength(a,b);
writeln('Введите элементы массива - ');
for i:=0 to b-1 do begin
readln(a[i]);
if a[i] mod 2 = 0 then c:=c+a[i];
end;
writeln('Сумма четных элементов массива - ',c);
END.
1)Если он этого не знал.
2)Если он все понял.(может быть такое, что сообщение написано на языке которое он не знает.)
3)Если он его прочитал и осмыслил.(может же просто пробежаться глазами
Eсли задана точность то зачем задавать n? И наоборот.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
Range(1, n).Select(i -> 1 + 1 / Sqr(i)).Product.Println
end.