Всем привет) задача: Найти сумму тех элементов массива из 15 случайных целых чисел от...

Question

Всем привет)
задача: Найти сумму тех элементов массива из 15 случайных целых чисел от -30 до 30, которые кратны 5

Answer 1

Program zadacha;
var
a:array[1..15] of integer;
i,s:integer;
BEGIN
randomize;
s:=0;
for i:=1 to 15 do
    begin
    a[i]:=random(61)-30;
    write(a[i],'  ');
    if a[i] mod 5 = 0 then s:=s+a[i];
    end;
writeln;
writeln('S=',s);
END.