Question

Паскаль,написать программу: Организовать с клавиатуры ввод N произвольных целых чисел. Определить количество отрицательных и сумму положительных.

Answer 1

Var
n, i, a, kotr, sumpol: longint;
begin
readln(n);
kotr := 0;
sumpol := 0;
for i := 1 to n do begin
read(a);
if (a < 0) then
inc(kotr)
else
sumpol := sumpol + a;
end;
writeln('Количество отрицательных чисел = ', kotr);
writeln('Сумма положительных чисел = ', sumpol);

Answer 2

Для написания программы на языке Паскаль, удобно использовать циклы для считывания чисел с клавиатуры и определения их свойств. Вот пример программы, которая решает вашу задачу:

pascalCopy code
program CountPosNegNumbers;

var
  N, num, sumPos, countNeg: integer;

begin
  sumPos := 0;
  countNeg := 0;

  writeln('Введите количество чисел N:');
  readln(N);

  writeln('Введите ', N, ' целых чисел:');
  
  for var i := 1 to N do
  begin
    readln(num);
    if num < 0 then
      countNeg := countNeg + 1
    else
      sumPos := sumPos + num;
  end;

  writeln('Количество отрицательных чисел: ', countNeg);
  writeln('Сумма положительных чисел: ', sumPos);
end.

Пользователь должен ввести значение N - количество чисел, а затем последовательно ввести N целых чисел. Программа затем подсчитает количество отрицательных чисел и сумму положительных чисел и выведет их на экран.

Примечание: В Паскале обратите внимание на то, что циклы считаются от 1 до N (включительно), где i - это текущий номер итерации цикла. В программе выше я использовал for var i := 1 to N do для примера, однако в других реализациях Паскаля (например, Turbo Pascal) синтаксис может немного отличаться.