Программа просит ввести пользователя число, длину генерируемой последовательности. Затем создается массив нужной длины, заполняется значениями от 0 до 50. Затем во втором цикле просматривается каждый элемент массива, - если он кратен 5, то число выводится на экран и суммируется.
В конце программа выводит итоговую сумму найденных элементов.
Программа:
{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, то число выводится на экран и суммируется.
В конце программа выводит итоговую сумму найденных элементов.
Результат выполнения программы: