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

1

Ответы и объяснения

2014-04-15T17:53:36+04:00
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.

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