Question

Помогите пожалуйста. Не умею работать в Паскаль АВС

Answer 1

Если массив заполнять случайными числами, то можно использовать следующий алгоритм:const n=10;type mas=array[1..n] of integer;var box:mas; i,sum,k:integer;beginrandomize;
  for i:=1 to n do   begin  box[i]:=random(100);  writeln(box[i]);  end;  readln(k); for I:=1 to n do begin if box[i] mod k =0 then sum:=sum+box[i]; end;  writeln('Сумма:',sum); end.

Answer 2

const n=10;
type mas=array[1..n] of integer;
var box:mas; i,sum,k:integer;
begin
randomize;

for i:=1 to n do
begin
box[i]:=random(100);
writeln(box[i]);
end;
readln(k);
for I:=1 to n do begin
if box[i] mod k =0 then
sum:=sum+box[i];
end;

writeln('Сумма:',sum);
end.