Question

Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитывает количество положительных чисел среди элементов массива. Входные данные Сначала задано число N — количество элементов в массиве (1N10000). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел ЯЗЫК - PASCAL 35 баллов

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 a.Count(p -> p > 0).Println

end.

Answer 2

Вот пример программы на языке Pascal, которая подсчитывает количество положительных чисел в массиве:

pascalCopy code
program CountPositiveNumbers;

var
  N, i, count: integer;
  arr: array of integer;

begin
  // Ввод количества элементов массива
  writeln('Введите количество элементов в массиве:');
  readln(N);
  
  // Создание массива
  SetLength(arr, N);
  
  // Ввод элементов массива
  writeln('Введите элементы массива через пробел:');
  for i := 0 to N - 1 do
    read(arr[i]);
  
  // Подсчет положительных чисел
  count := 0;
  for i := 0 to N - 1 do
  begin
    if arr[i] > 0 then
      count := count + 1;
  end;
  
  // Вывод результата
  writeln('Количество положительных чисел: ', count);
  
  readln;
end.

Программа сначала запрашивает количество элементов массива (N), затем вводит сами элементы массива. Затем она выполняет цикл по элементам массива и считает количество положительных чисел (count). В конце программа выводит результат.

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