Дан целочисленный массив на 10 элементов.Найти количество и сумму элементов кратн?
Дан целочисленный массив на 10 элементов.Найти количество и сумму элементов кратн??х k
Гость
Ответ(ы) на вопрос:
Гость Var a:array[1..10] of integer;
i,k,s,r:integer;
begin
for i:=1 to 10 do readln(A[i]);
writeln('Введите число k');
readln(k);
s:=0;
r:=0;
for i:=1 to 10 do
if (A[i]modk=0) then begin
r:=r+1;
s:=A[i]+s;
end;
writeln(s,r);
end.
Не нашли ответ?
Похожие вопросы