Версия для печати темы

Автор: Psychologist 19.12.2007 22:08

Добрый вечер.
Помогите, пожалуйста, найти ошибку. Ошибка в 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.

Автор: Client 19.12.2007 22:13

Если случайное число равно 0, то N = -44

Автор: volvo 19.12.2007 22:14

n := random (56) + 44;

Автор: Client 19.12.2007 22:16

Цитата(volvo @ 19.12.2007 18:14)

n := random (56) + 44;

Автор: Psychologist 19.12.2007 22:19

Большое спасибо!