Ответ:
N:=0;
for i:=1 to 50 do begin
write(‘x[‘,i,’]=’); readln(x);
if x<0 then N:=N+1;
end;
writeln(‘N=’,N);
Похожие вопросы и ответы:
- Нужна схема в visio(просто блок схема) одна цикл с…
- Суммарная масса сосуда с подсолнечным маслом mм= 5 кг. К…
- 1. Запиши выражения и найди их значения. Увеличить в а раз…
- Составить выроржение и найти их значение сумму чисел 8 и 10…
- каких героев в романе больше-положительных или…
- Одной из отрицательных последствий власти Орды: - ответ на…
- Найдите три отрицательных последствия власти Орды. - ответ…
- у Саши есть конфеты: 6 мятных, 8 лимонных и 4 вишнёвых. Саша…
- 42) (А. Куканова) Рассматривается множество целых чисел,…
- Даны три четырёхзначных числа. Если в них все нечётные цифры…
- сколько существуета)двухзначных чисел сумма которых равна…
- Из 97 вычесть разность чисел 50 и 23К 36 прибавить сумму…
- 14.10.22Контрольная работа 1 по теме " Тригонометрические…
- составить 2 сложных предложения сделать схему - Правильный…
- Военный блок, в который входили Германия, Австро-Венгрия и…