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

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

Ответы

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

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

Еva

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store