Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дан целочисленный массив на 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.