Question

Вводится 50 чисел. Подсчитать сумму чисел, принадлежащих отрезку [77; 280]. В приложении Pascal ABC

Answer 1

Ответ:

begin

 var A := ReadArrInteger(50);

 A.Where(p -> (p >= 77) and (p <= 280)).Sum.Println;

end.

Объяснение:

Answer 2

Для подсчета суммы чисел, принадлежащих отрезку [77; 280], вам нужно ввести 50 чисел и затем проверить каждое число на принадлежность к данному отрезку. Если число находится в этом отрезке, то добавить его к общей сумме. Вот пример кода на Pascal ABC:

pascalCopy code
program SumOfNumbers;

var
  i, number, sum: integer;

begin
  sum := 0;
  
  writeln('Введите 50 чисел:');
  
  for i := 1 to 50 do
  begin
    readln(number);
    if (number >= 77) and (number <= 280) then
      sum := sum + number;
  end;
  
  writeln('Сумма чисел, принадлежащих отрезку [77; 280]: ', sum);
end.

Скопируйте этот код в среду программирования Pascal ABC, запустите его и введите 50 чисел. После ввода программу подсчитает сумму чисел, которые принадлежат отрезку [77; 280].