Pascal. Выстроить одномерный массив вещественных чисел.Числа сформировать при помощь

Pascal. Выстроить одномерный массив вещественных чисел.Числа сформировать при помощь генератора случайных чисел

Задать свой вопрос
Сашок Куравцев
Какой интервал?
2 ответа
Программка выводит числа в спектре [0..R)

Const
   N = 13;
Var
   A:array[1..N] of real;
   i,R:integer;
Begin
Write('R = ');ReadLn(R);
For i:= 1 to N do
    Begin
    A[i]:=random()*R;
    Write(A[i]:0:3,' ');
    End;
End.

Var
mas:array [1..20] of real;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
mas[i]:=random(100)-70+random(1000)/1000;
write(mas[i], ' ');
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт