< >

СРОЧНО!!!Дан массив из N целых чисел. Найти сумму всех отрицательных чисел. Создать программу на Паскаль

Ответы

Ответ дал: maria315315
0

var

a: array [1..n] of integer;

i,s:integer;

begin

s:=0;

for i:=1 to n do

begin

if a[i]<0 then s:=s+a[i];

end;

end.

Похожие вопросы
Русский язык
1 год назад
В Задание 7. Подберите подходяшие по смыслу отрицательны местоимения не встеретил не создовал не интересуется подарить научить ​
Математика
1 год назад
СРОЧНО!!!!Найдите точки перегиба интервалы, выпуклости и вогнутости функции y=(x+1)e^2x
Физика
1 год назад
• Метод «Інтерактивний тест "Так - Hi"» 1. За ядерною моделлю будови атома Резерфорда атом складається з позитив- но зарядженого ядра, оточеного негативно зарядженими частинками електронами; саме в
Физика
1 год назад
Знайдіть силу пружності, яка виникатиме при розтягуванні пружини жорсткістю 40 Н/м на 1 см.
Информатика
2 года назад
default-config.dat как сделать помогите пожалуйста
Русский язык
2 года назад
Тест по теме «Фонетика» 1.Укажите ошибочное суждение. 1) В слове БЕРЕГ все согласные звуки звонкие. 2) В слове УЧАЩИЙСЯ все согласные звуки мягкие. 3) В слове ЛЬЁШЬ четыре звука. 4) В слове
Геометрия
8 лет назад
На клетчатой бумаге с размером клетки 1х1 изображена фигура найдите её площадь.
Математика
8 лет назад
Рабочие должны изготовить 840 деталей первый изготовил в час 60 деталей а второй в час 80 деталей За сколько часов они сделают все детали?