Область консультирования

программирование

Образование

Время консультирования

Не указано

Рассказать друзьям

Понравился эксперт? Порекомендуй друзьям в соцсетях.

могу

09.02.12
ответ эксперта

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

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.
09.02.12
ответ эксперта
Ответ понравился автору
Сергей Петров
Рейтинг: 15
0 отзывов
0% положительных
2 ответов клиентам
0 лучших
от 0 до 450 руб.
стоимость консультации
30 минут
консультация длится
4 года 9 месяцев на сайте
Заходил 29 дней назад