Question

Знайти суму елементів, значення яких кратне 5

Lazarus
Даю 20 балов

Answer 1

Ответ:

program SumMultiplesOfFive;

var

 sum, i, n, x: integer;

begin

 sum := 0;

 writeln('Введите количество элементов в последовательности:');

 readln(n);

 writeln('Введите элементы последовательности:');

 for i := 1 to n do

 begin

   readln(x);

   if x mod 5 = 0 then

     sum := sum + x;

 end;

 writeln('Сумма элементов, кратных 5, равна: ', sum);

 readln;

end.