Question

Дано 20 чисел. Найти сумму чисел, которые меньше числа 5.(Паскаль)

Answer 1

Program pr1;

uses crt;

var  

  n:byte; // Размерность массива

  i:byte; // Счетчик массива

  a:array[1..20] of real; // Массива чисел

  S:real; // Сумма чисел

Begin

  clrscr;

  write('Введите размерность массива: ');

  readln(n);

  writeln('Введите ',n,' элементов');

// Блок ввода

  for i:=1 to n do

     readln(a[i]);

// Блок вывода

  writeln('Исходный массив');

  for i:=1 to n do

     write(a[i]:6:1,' ');

     writeln;

     readln;

// Блок инициализации

  S:=0;

  for i:=1 to n do

     if(a[i]<5) then

        S:=S+a[i];    

  readln;

  writeln('S= ',S);

End.

Answer 2

Для нахождения суммы чисел, которые меньше пяти из заданных 20 чисел, можно использовать следующий алгоритм на языке Паскаль:

pascalCopy code
program SumOfNumbersLessThanFive;

var
  numbers: array [1..20] of Integer;
  i, sum: Integer;

begin
  sum := 0;

  // Вводим 20 чисел с клавиатуры
  writeln('Введите 20 чисел:');
  for i := 1 to 20 do
  begin
    readln(numbers[i]);

    // Проверяем, меньше ли текущее число 5 и добавляем его к сумме, если условие выполняется
    if numbers[i] < 5 then
      sum := sum + numbers[i];
  end;

  // Выводим сумму чисел, которые меньше 5
  writeln('Сумма чисел, которые меньше 5: ', sum);

  readln;
end.

Программа запрашивает у пользователя ввод 20 чисел и затем проходит по каждому числу, проверяя, меньше ли оно 5. Если число удовлетворяет этому условию, то оно добавляется к переменной sum. После завершения ввода и обработки всех чисел, программа выводит сумму чисел, которые меньше 5.