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.
Добрый день. Меня заинтересовал ваш ответ " Код трохи поміняв на форумі сумма квадратівprogrammersforum.ru/showthread.php?t=36460var i:integer;..." на вопрос http://www.liveexpert.org/topic/view/199290-pomogite-pozhalujsta-s-paskalem-nado-ochen-srochno. Можно с вами обсудить этот ответ?