Составить алгоритм нахождения суммы 15 положительных чисел, которые генерируются случайным образом.(блок схемой)
var a,s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a:=random(100);
s:=s+a;
end;
write(s=,s);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Составить алгоритм нахождения суммы 15 положительных чисел, которые генерируются случайным образом.(блок схемой)
var a,s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a:=random(100);
s:=s+a;
end;
write(s=,s);
end.