30 ! , заранее . мне нужна , нужна, в информатике не шарю( . составьте программу на языке паскаль. имеется массив на 15 чисел, его необходимо заполнить и найти сумму отрицательных чисел.
vlad87456
1
04.10.2019 15:30
1
Другие вопросы по теме Информатика
ащя
10.12.2021 18:36
1232815
10.12.2021 18:39
gasimovaa44
29.05.2019 16:10
Nasta11111112356
19.10.2020 05:41
rstksmirnov
19.10.2020 05:42
karinayackupow
19.10.2020 05:42
ЭЩЩКЕРЕЕЕ
17.05.2020 17:36
Ardak123
17.05.2020 17:36
nargis84002
17.05.2020 17:35
Популярные вопросы
- Заполнить массив а. отрицательные элементы массива заменить на противоположные,...
3 - Встихотворении б.заходера «как тюлень стал тюленем» тюлень стал голым,потому...
3 - По графику зависимости проекции скорости от времени для тела движущегося...
2 - Из какого произведения взят отрывок? (назовите произведение) «как с...
2 - Вкладчик решил положить в банк на депозит 1 тг известно что в банке...
1 - Люди составить общую и структурную формулу следую щих веществ 1) 2,4...
3 - Значение невысказанное слово порой гремит, как гром...
1 - Исправить предложение, указать характер речевых ошибок. налажена связь,...
1 - (55 ) по , ! ( если знаете все буду отправлять на проверку)...
2 - Твір на тему у піснях історія нашого народу...
2
const n=15;
var a:array [1..n] of integer;
i,s:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:3,' ');
if a[i] < 0 then s:=s+a[i]
end;
writeln;
write('Сумма отрицательных чисел: ',s)
end.