Question

Написать программу Pascal Написать программу, которая в заданном с клавиатуры массиве из 7 целых чисел находит сумму элементов, меньших 4.

Answer 1

Ответ:

для версий PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1 и выше

begin

var A := ReadArrInteger(7);

A.Where(p -> p < 4).Sum.Println;

end.

Answer 2

Конечно! Вот пример программы на Pascal, которая выполняет описанную вами задачу:

program SumLessThanFour;

const
  ARRAY_SIZE = 7;

var
  arr: array[1..ARRAY_SIZE] of integer;
  i, sum: integer;

begin
  writeln('Введите 7 целых чисел:');
  for i := 1 to ARRAY_SIZE do
    readln(arr[i]);

sum := 0;

for i := 1 to ARRAY_SIZE do
  begin
    if arr[i] < 4 then
      sum := sum + arr[i];
  end;

writeln('Сумма элементов, меньших 4, равна: ', sum);
end.

В этой программе мы используем переменные `arr` для хранения введенного пользователем массива и `sum` для хранения суммы элементов, меньших 4.

Сначала программа запрашивает у пользователя ввод 7 целых чисел с помощью цикла `for`. Затем, с помощью еще одного цикла `for`, программа проверяет каждый элемент массива и, если он меньше 4, добавляет его к переменной `sum`.

Наконец, программа выводит сумму элементов, которые меньше 4, на экран.

Пример работы программы:

Введите 7 целых чисел:
1
2
3
4
5
6
7
Сумма элементов, меньших 4, равна: 6

В этом примере программа сначала запросит ввод 7 чисел (1, 2, 3, 4, 5, 6, 7), а затем выведет сумму элементов, меньших 4 (1 + 2 + 3 = 6).