program kol_krat_zad;
uses crt;
var
i,x,n,k:int64;
a:array[1..100000]of int64;
begin
write('Введите количество чисел》');
read(n);
for i:=1 to n do
begin
write('Введите ',i,'-е число》');
read(a[i]);
end;
write('Введите число, кратность которому выполняется проверка》');
read(x);
k:=0;
for i:=1 to n do
if (a[i]mod x =0) then
k:=k+a[i];
write('Сумма кратных чисел》',k)
end.
Интернет – это очень полезная вещь, но с другой стороны - слишком вредная. Полезность его заключается в том, что можно найти, практически, любую интересующую вас информацию и можно общаться в социальных сетях с людьми на больших расстояниях. А вред интернета заключается, в первую очередь, в зависимости от него, которая превращается в болезнь.
Хоть и плюсов много, но минусов больше, например, таких как: лжесайты, на которых распространяют компьютерные вирусы, снимают большие суммы денег с мобильного телефона, если, например, ты ввел номер своего мобильного телефона для обычной регистрации, а попался к мошенникам; реклама на сайтах, с которых тебе нужна информация для работы или учебы, а перед глазами все время выскакивает и мелькает бесконечная «гадость» и к тому же, с этих реклам так же распространяют вирусы.
В интернете много всего нецензурного, порнографии и мошенничества. В первую очередь, от всего вышеперечисленного нужно уберегать детей, устанавливая на компьютеры фильтры безопасности и хорошие антивирусы. Для наилучшей защиты правительству нужно создавать различные организации, занимающиеся охраной интернета и которые обезопасить информационное пространство интернета, тем самым защитить детей и их детство.
const
n=10;
var
a,i,s: integer;
ar:array[1..n] of integer;
begin
write('Введите число: ');
readln(a);
s:=0;
for i:=1 to n do
ar[i]:=random(10);
for i:=1 to n do
writeln(ar[i]);
for i:=1 to n do
if ar[i] mod a =0 then s:=s+ar[i];
writeln('Результат: ',s);
end.
Объяснение: