Автор Игорь Саблин задал вопрос в разделе Другие языки и технологии
Pascal abc функция рандом очень нужна помощь. как в паскаль abc заполнить массив а случайными числами от -1000 до 1000 и получил лучший ответ
Ответ от Krab Bark[гуру]
var i,n:integer; a:array[1..1000]of integer; begin randomize; write(\'n ? \'); readln(n); for i:=1 to n do a[ i]:=random(1999)-999; for i:=1 to n do begin write(a[ i]:6); if i mod 10=0 then writeln end; readln end. Тут я ограничился для красоты диапазоном трехзначных чисел от -999 до 999 Для -1000..1000 замени на random(2001)-1000
Ответ от Ѕулиганов Иосиф[гуру]
Не знаю, как в АВС, а в турбо-паскале было так: a[k]:=1000*(2*random - 1); {это если массив вещественный} или a[k]:=random(2000)-1000; {если массив целый}
Не знаю, как в АВС, а в турбо-паскале было так: a[k]:=1000*(2*random - 1); {это если массив вещественный} или a[k]:=random(2000)-1000; {если массив целый}
Ответ от Kelavric kelavric[гуру]
Ой, неужели в паскале абеце нету функций round, trunc и floor? Ну какое-то явное приведение типов там должно же быть! Попробуйте так, что ли: a[k] := round(1000*(2*random - 1));
Ой, неужели в паскале абеце нету функций round, trunc и floor? Ну какое-то явное приведение типов там должно же быть! Попробуйте так, что ли: a[k] := round(1000*(2*random - 1));
Ответ от Дима мищенко[активный]
Program p23;vara:array[1..100]of longint;i:integer;beginrandomize;for i:=1 to 100 dobegina[i]:=random(-1000,1000);write(a[i]:7);end;end.
Program p23;vara:array[1..100]of longint;i:integer;beginrandomize;for i:=1 to 100 dobegina[i]:=random(-1000,1000);write(a[i]:7);end;end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Pascal abc функция рандом очень нужна помощь. как в паскаль abc заполнить массив а случайными числами от -1000 до 1000