Всем привет)
задача: Найти сумму тех элементов массива из 15 случайных целых чисел от -30 до 30, которые кратны 5
Ответы на вопрос
Ответил Light1974
0
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.
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.
Новые вопросы
История,
2 года назад
Алгебра,
2 года назад
Математика,
9 лет назад
Алгебра,
9 лет назад
Информатика,
10 лет назад