В ПАСКАЛЕ!!!!!!!!!!!!! В массив A[n] занесены натуральные числа. Найти сумму тех...

Question

В ПАСКАЛЕ!!!!!!!!!!!!!
В массив A[n] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному K (A[i] mod k ) = 0

Answer 1

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.

Comments

спасибо