Учеба и наука

помогите пожалуйста с паскалем!!! надо очень срочно!! - вопрос №199290

Найти сумму кубов всех отрицательных элементов массива A={a[i]}.

февраль 8, 2012 г.

97-й в Учебе и науке

0 отзывов

Код трохи поміняв на форумі сумма квадратів

var 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.

февраль 9, 2012 г.

Ответ понравился автору

Похожие вопросы

февраль 12, 2014 г.

Учеба и наука

Решено

сентябрь 19, 2013 г.

Учеба и наука

июнь 11, 2013 г.

Учеба и наука

сентябрь 27, 2012 г.

Учеба и наука