В ПАСКАЛЕ!!!!!!!!!!!!! В массив A[n] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному K (A[i] mod k ) = 0
В ПАСКАЛЕ!!!!!!!!!!!!!
В массив A[n] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному K (A[i] mod k ) = 0
Гость
Ответ(ы) на вопрос:
ГостьConst
N = 33;
Var
A:array[1..N] of integer;
i,K:integer;
S:real;
Begin
Write('K = ');ReadLn(K);
S:=0;
For i:= 1 to N do
Begin
A[i]:=random(100)+1;
Write(A[i],' ');
if A[i] mod K = 0 then S:=S+A[i];
End;
WriteLn;
Write('S = ',S);
End.
Не нашли ответ?
Похожие вопросы