Помогите, пожалуйста, найти ошибку. Ошибка в 1-2 символах (по-моему).
Суть задачи: На экран выводятся 3 последовательности из 10 случайных чисел (числа от 44 до 99). В каждом ряду посчитать среднее арифметическое.
Всё вроде бы работет, ток вот программа считает, что отрицательные числа тоже можно использовать. Как это дело устранить?
Program PRAKT_03;
Var
n , s , i , j : Integer;
s2 : Real;
Begin
s:=0;
randomize;
writeln ('*** Chisla ot 44 do 99 ***');
writeln;
for i:=1 to 3 do begin
for j:=1 to 10 do begin
n:=random (143)-44;
write (n:4);
s:=s+n;
end;
s2:=s/10;
writeln (' (srednee arifmeticheskoe - ', s2:3:1, ')');
end;
readln;
End.
