Опубликовано 5 лет назад по предмету Информатика от msdos

Вводится последовательность ненулевых чисел.0-конец последовательности. Подсчитать, сколько в ней отрицательных чисел, и сумму положительных чисел.

Ответ

Ответ дан Mishka28

var

a,k,s:integer;

begin

repeat

write (' = > ');readln(a);

if a<0 then k:=k+1 else s:=s+a;

until a=0;

writeln ('Summa: ',s);

writeln ('Kol-vo: ',k);

readln;

end.
Ответ

Ответ дан Alphaeus

Program msdos;
uses crt;
var
r,sum: real;
neg:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
neg:=0;
sum:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
    begin
      write('Ввод:');
      readln (r);
      if r<0 then neg:=neg+1;
      if r>0 then sum:=sum+r;
    end;
writeln();
writeln('Количество отрицательных чисел ',neg);
writeln('Сумма положительных чисел ',sum);
end.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт

Другие вопросы

Математика - 4 недели назад

Математика - 4 недели назад

Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт

Что ты хочешь узнать?

Задай вопрос