Дан массив: -7, 0, -3, 11, 5. Найти сумму отрицательных элементов. в Pascal ABC. пожалуйста.
Дан массив: -7, 0, -3, 11, 5. Найти сумму отрицательных элементов. в Pascal ABC. пожалуйста.
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[0..4] of integer = (-7, 0, -3, 11,5);
var i,sum:integer;
begin
for i:=0 to 4 do
if(a[i]<0) then sum:=sum+a[i];
writeln(sum);
readln;
end.
Не нашли ответ?
Похожие вопросы