Random

[tabanga]

Ребят, а не подскажите, возможно ли при использовании функции random, чтобы не было конкретного диапазона чисел?

[Valio]

А какой "конкретный" диапазон сейчас?

[tabanga]

m[i]:=random(20)-20*random;

[Valio]

И? В чём вопрос то?

[NiCola999]

ты нарушаешь логику случайного числа

[tabanga]

Задание такое: Пользователь вводит число с клавиатуры, в заданном массиве найти все числа, меньше вводимого числа и посчитать их среднее арифметическое.

При вводе числа -20 начинает ругаться

PHP код:

Program massiv;
var m:array [1..20] of real;
b,s,ar:real;
i,k:integer;
begin
Randomize;
for i:=1 to 20 do begin
                  m[i]:=random(20)-20*random;
                  write (m[i]:2:3,' ');
                  end;
Writeln;
Begin
k:=0;
s:=0;
ar:=0;
writeln(' Введите число ');
Readln (b);
for i:=1 to 20 do begin
                  if m[i]<b then
                                begin
                                Writeln (' Число меньше вводимого числа ',m[i]:2:3);
                                k:=k+1;
                                s:=s+m[i];
                                end;
                  end;
ar:=s/k;
Writeln (' Среднее арифметическое ',ar:2:3);
end;
end. 


[Hacker19_90]

Понятно почему падает! У вас в массиве нет числа которое меньше -20! Поэтому к = 0!
Отсюда деление на 0! Сами понимаете!

[tabanga]

Hacker19_90 Это понятно, а не подскажите, как можно исправить программу, чтобы можно было вести любое число?

[Hacker19_90]

Program massiv;
uses crt;
var m:array [1..20] of real;
b,s,ar:real;
i,k:integer;
begin
clrscr;
Randomize;
for i:=1 to 20 do begin
                  m[i]:=random(20)-20;
                  write (m[i]:2:3,' ');
                  end;
Writeln;
k:=0;
s:=0;
ar:=0;
writeln(' Введите число ');
Readln (b);
for i:=1 to 20 do begin
                  if m[i]<b then
                                begin
                                Writeln (' Число меньше вводимого числа ',m[i]:2:3);
                                k:=k+1;
                                s:=s+m[i];
                                end;
                  end;
if k = 0 then writeln ('Таких элементов нет!')
else
begin
    ar:=s/k;
    Writeln (' Среднее арифметическое ',ar:2:3);
end;
ReadKey;
end.

[tabanga]

Hacker19_90 Спасибо, но вот интересно, нельзя сделать так, чтобы рандомное заполнение массива не ограничивалось на 20, чтобы можно было ввести любое число?