losp

17.07.2021 03:21 •  Информатика

найти ошибку в коде ПАСКАЛЬ. Мне сказали,что в коде неправильно реализована функция рандом,как это исправить?
var
po: array [1..100] of integer;
i,sum: integer;
begin
for i := 1 to 100 do
begin
po[i] := random(9)-5;
writeln (po[i]);
end;
sum:=0;
for i:=1 to 100 do
begin
if po[i]>0 then
sum:=sum+po[i]
end;
writeln(sum);
end.