Graril
4 год назад
Пожалуйста посчитайте пожалуйста. Не умею работать в Паскаль АВС
ОТВЕТЫ
Onisim
Oct 24, 2020
Если массив заполнять случайными числами, то можно использовать следующий алгоритм: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.
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.
344
Смежные вопросы:
