Всем привет) задача: Найти сумму тех элементов массива из 15 случайных целых чисел от -30 до 30, которые кратны 5
Всем привет)
задача: Найти сумму тех элементов массива из 15 случайных целых чисел от -30 до 30, которые кратны 5
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы