могу
09.02.12
ответ эксперта
Код трохи поміняв на форумі сумма квадратів
programmersforum.ru/showthread.php?t=36460var i:integer;sum:longint;
a:array[1..20] of integer;
begin
for i:=1 to 20 do
read(a[i]);
sum:=0;
for i:=1 to 20 do
if a[i]<0 then
sum:=sum+(a[i]*a[i]*a[i]);
writeln(sum);
end.
09.02.12
ответ эксперта
Ответ понравился автору
У эксперта Сергей Петров (serg1984) пока что нет блогов