Наити сумму и количество отрицательных из введенных чисел - Pascal

Формулировка задачи:

Водится 3 числа, лежащих от -100 до 100. Найти их сумму и количество отрицательных.


textual

Код к задаче: «Наити сумму и количество отрицательных из введенных чисел - Pascal»

var
  a, s, b, i: integer;
 
begin
  for i := 1 to 3
  do 
  begin
    read(a);
    if a < 0
      then b += 1;
    s += a;
  end;
  writeln('Сумма ', s, ' Кол-во отрицательных элементов ', b);  
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.600 из 5

Источник