Через pascal

Привет! Давай вместе разберем эту задачу.

Задача: У нас есть одномерный массив чисел в диапазоне от -50 до 50. Нам нужно написать программу на языке Pascal, которая найдет количество положительных четных чисел в этом массиве и выведет результат.

Шаги решения:

1. Инициализация массива: Создаем массив и заполняем его случайными числами от -50 до 50.
2. Перебор массива: Проходим каждый элемент массива и проверяем, является ли он положительным и четным.
3. Подсчет элементов: Если элемент положительный и четный, увеличиваем счетчик.
4. Вывод результата: Показываем количество найденных элементов.

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

program CountPositiveEvenNumbers;
uses crt;
var
  arr: array[1..100] of integer;  { Массив из 100 элементов }
  i, count: integer;

begin
  randomize;
  count := 0;

  { Заполнение массива случайными числами от -50 до 50 }
  for i := 1 to 100 do
  begin
    arr[i] := random(101) - 50;
  end;

  { Подсчет положительных четных чисел }
  for i := 1 to 100 do
  begin
    if (arr[i] > 0) and (arr[i] mod 2 = 0) then
      count := count + 1;
  end;

  { Вывод количества положительных четных чисел }
  writeln('Количество положительных четных чисел: ', count);
end.

Если появятся вопросы или что-то будет непонятно, не стесняйся спрашивать! 😊