Дан массив натуральных чисел. Найти сумму элементов, кратных данному K.
Дан массив натуральных чисел. Найти сумму элементов, кратных данному K.
Гость
Ответ(ы) на вопрос:
Гостьprogram bb;
uses crt;
const n=30;
var
m:array[1..n]of integer;
i,k,s:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
m[i]:=i; write(m[i],' ');
end;
writeln;
write('K = ');
read(k);
writeln;
s:=0;
for i:=1 to n do
if m[i] mod k = 0 then
begin
s:=s+m[i]; write(m[i],' ');
end;
writeln;
writeln;
writeln('Сумма элементов кратных данному К = ',s);
end.
Не нашли ответ?
Похожие вопросы