Question

Программе на языке паскальАВС? УСЛОВИЕ: найти количество отрицательных чисел и сумму положительных из 50 введенных.

Answer 1

program Poz;

var a, b, c, i: integer;

begin

writeln('Введите 50 чисел.');

for i:=0 to 49 do

   begin

   readln(a);

   if a>0 then

       b+=1

   else

       c+=1

   end;

writeln('Количество положительных чисел = ', b, ' ', 'Количество отрицательных чисел = ', c)

end.

Answer 2

Приведенный ниже код на языке Паскаль решает задачу подсчета количества отрицательных чисел и суммы положительных чисел из 50 введенных чисел:

pascalCopy code
program NegativePositiveCount;
var
  countNegatives, sumPositives, number, i: integer;
begin
  countNegatives := 0;
  sumPositives := 0;
  
  for i := 1 to 50 do
  begin
    writeln('Введите число ', i, ': ');
    readln(number);
    
    if number < 0 then
      countNegatives := countNegatives + 1
    else if number > 0 then
      sumPositives := sumPositives + number;
  end;
  
  writeln('Количество отрицательных чисел: ', countNegatives);
  writeln('Сумма положительных чисел: ', sumPositives);
  readln;
end.

Эта программа просит пользователя ввести 50 чисел и подсчитывает количество отрицательных чисел (countNegatives) и сумму положительных чисел (sumPositives). Результаты выводятся на экран.