Ответ:
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);
writeln(ar[i]);
if ar[i] mod a =0 then s:=s+ar[i];
writeln('Результат: ',s);
end.
Объяснение:
program kol_krat_zad;
uses crt;
i,x,n,k:int64;
a:array[1..100000]of int64;
write('Введите количество чисел》');
read(n);
write('Введите ',i,'-е число》');
read(a[i]);
end;
write('Введите число, кратность которому выполняется проверка》');
read(x);
k:=0;
if (a[i]mod x =0) then
k:=k+a[i];
write('Сумма кратных чисел》',k)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.
Объяснение:
Ответ:
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.