Помогите составить программу , вычисляющую сумму квадратов n чётных натуральных чисел (...

Question

Помогите составить программу , вычисляющую сумму квадратов n чётных натуральных чисел
( сейчас прошли циклические алгоритмы, нужна и блок-схема)

Comments

а массивы вы проходили?

Answer 1

Var n,a,i:integer;
s:longint;
begin
writeln('введите количество чисел');
readln(n);
a:=0; s:=0;
writeln('введите числа');
for i:=1 to n do begin
readln(a);
if a>10 then s:=s+a*a;
end;
if s=0 then writeln('положительных чисел нет') else writeln(s);
end.

Comments

спасибо большое ^^

---

Я немного подправил программу. Не увидел, что надо только положительные числа. Незачто.)