составьте программу, которая формирует массив, содержащий 16 случайных чисел, принадлежащих промежутку [-2;3], и подсчитывает сумму отрицательных
5-9 класс
|
чисел.вывод в строку через запятую
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.
Другие вопросы из категории
[Больше-меньше]
Дядя Федор решил учить Шарика математике. Но Шарик был умным псом и простые примеры его не устраивали, тогда Дядя Федор усложнил задачу и записал три неравенства в таком виде:
1011112 + 2308 # 2334 – 138 + 9816
1618 – 7116 + 10004 # 11110012 – 718
1111112 – 118 + 1F16 # 3616 + 3214
Символ # обозначает один из трех знаков сравнения – больше, меньше или равно.
Помоги Шарику понять, в каком из неравенств, какой знак сравнения скрывается за символом #. В ответе запиши через пробел значения знаков сравнения в порядке возрастания номеров неравенств, следующим образом:
Если в неравенстве стоит знак «меньше», то напиши букву «М».
Если в неравенстве стоит знак «больше», то напиши букву «Б».
Если в неравенстве стоит знак «равно», то напиши букву «Р».
Читайте также
увеличивает на 3. На экран выводятся исходные и преобразованные значения
следующему правилу: к четному числу прибавляет 1, а нечетное умножает на 2.
отрицательных чисел. Вывод в столбец с двумя десятичными знаками. Только Паскаль ABC!
отрицательных чисел. Вывод в столбец с двумя десятичными знаками.
отрицательных чисел. Вывод в столбец с двумя десятичными знаками.