Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Паскаль (помогите чем смогите :))
Паскаль
Найти сумму квадратов всех отрицательных элементов массива А={a[i]}
1 | Автор: LIREND | 2011-06-22, 11:48   |  Репутация: [ + 0 ]
Держи))

var
a:array[1..100]of integer;
i,n,s:integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]<0 then s:=a[i]*2+s;end;
writeln(s);
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-06-22, 16:59   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Паскаль (помогите чем смогите :))
Страница 1 из 11
Поиск: