Составьте программу, которая формирует массив, содержащий 16 случайных чисел, принадлежащих промежутку [-2; 3], и подсчитывает сумму отрицательных чисел.вывод в строку через запятую
SosaLegor312lok
1
25.03.2019 02:10
4
Другие вопросы по теме Информатика
Дейлионна
08.09.2019 00:20
Rafaelnodat1
08.09.2019 00:20
annarom1108
02.04.2021 00:43
yeghiazaryanhap01lbi
02.04.2021 00:42
котенок134
02.04.2021 00:36
dukamaksim6
02.04.2021 00:30
retul
02.04.2021 00:15
Roman4ik23
01.06.2019 13:40
kroylayshic
28.12.2020 14:39
npodolskaa191
06.07.2019 11:50
Популярные вопросы
- Почему распространена версия двух иванов грозных первой и второй половины...
2 - Стороны прямоугольника 7 см и 9 см.найдите площадь прямоугольника....
2 - Михайловском шиповника неудивительно разобрать под цифрой 2...
3 - Морфемный разбор слова зарошему,приятно...
3 - Вкаких произведениях , как в «евгении онегине», рассказывается о драматических...
1 - Из точки к плоскости проведен перпендикуляр 20 см и наклонная 25. найти...
3 - Напишите структурные формулы всех изомеров, которые отвечают формуле c4h8...
3 - Выберите из пар чисел (1; 0) (1; 1) (-1; 1) ту которая является решением...
1 - Упрямокутньому трикутнику abc кут c= 90°, кутa=30° bc=16 см. знайдіть довжину...
1 - После того как птр потратил 75% имеющихся денег, и у него осталось 850...
1
Program Program1;
var
i,sum:integer;
A: array [1..16] of integer;
begin
randomize;
for i:=1 to 16 do
begin
a[i]:=random(6)-2;
write(a[i],', ');
end;
sum:=0;
for i:=1 to 16 do
if a[i]<0 then sum:=sum+a[i];
writeln('Сумма отрицательных чисел равна',sum);
end.