Question

Дана последовательность из n-целых чисел. Найти сумму всех чисел кратных 5. На языке Паскаль​

Answer 1

Программа:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

Uses Math;

   var

       A : array of integer;

       N, S, i : integer;

begin

   Randomize;

   S := 0;

   write('Укажите длину последовательности: ');

   Readln(N);

   {Генерация и печать массива}

   SetLength(A, N);

   for i := 1 to N do begin

       A[i] := Random(50);

       write(A[i], ' ');

       end;

   writeln; writeln('------------------------------');

   for i := 1 to N do

       {Определение кратности элемента массива числу 5}

       if A[i] mod 5 = 0 then begin

           {Вывод на экран этого числа}

           write(A[i], ' ');

           {Подсчет суммы чисел}

           S := S + A[i];

           end;

   writeln;

   {Вывод на экран суммы}

   writeln('Сумма - ', S);

end.

Объяснение:

Программа просит ввести пользователя число, длину генерируемой последовательности. Затем создается массив нужной длины, заполняется значениями от 0 до 50. Затем во втором цикле просматривается каждый элемент массива, - если он кратен 5, то число выводится на экран и суммируется.

В конце программа выводит итоговую сумму найденных элементов.

Результат выполнения программы:

Answer 2

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

pascalCopy code
program SumOfMultiplesOf5;
var
  n, i, number, sum: integer;
begin
  // Введите количество элементов в последовательности
  write('Введите количество элементов в последовательности: ');
  readln(n);
  
  sum := 0; // Инициализируем сумму
  
  // Считываем элементы последовательности и находим сумму кратных 5
  writeln('Введите ', n, ' целых чисел:');
  for i := 1 to n do
  begin
    readln(number);
    if (number mod 5 = 0) then
      sum := sum + number;
  end;
  
  // Выводим сумму
  writeln('Сумма чисел, кратных 5, в последовательности: ', sum);
end.

Просто скопируйте этот код в среду разработки Pascal (например, Free Pascal) и выполните его. Программа запросит вас ввести количество элементов в последовательности и сами элементы, а затем выведет сумму всех чисел, кратных 5.