Ответы
Ответ дал:
0
var b:array[1..100] of integer;
i, sum, a:integer;
Begin
read(a);
for i:= 1 to 100 do begin
b[i]:= random(100);
if b[i] < a then
sum:= sum + b[i];
end;
writeln(sum);
End.
i, sum, a:integer;
Begin
read(a);
for i:= 1 to 100 do begin
b[i]:= random(100);
if b[i] < a then
sum:= sum + b[i];
end;
writeln(sum);
End.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад