Автор Дмитрий Евсеев задал вопрос в разделе Другие языки и технологии
как сформировать одномерный массив различных чисел в паскале? и получил лучший ответ
Ответ от { Люцерна }[гуру]
Не силён в программировании.. .
Но - вот.
Значения НЕ повторяются.
var
a: array [1..100] of Integer;
function Put(n, c: Integer): Boolean;
// n - индекс массива, c - число;
var
i: Integer;
begin
for i := 1 to n do
begin
if a = c then
begin
Result := False;
Exit;
end;
end;
a[n] := c;
Result := True;
end;
var
i: Integer;
begin
Randomize;
for i := 1 to 100 do
begin
repeat
Put(i, Random(10000));
until
a <> 0;
WriteLn(a);
end;
ReadLn;
end.
{ Люцерна }
Мастер
(1234)
Да чёрт побери....))
В комментариях - тоже)
В общем, после A должна быть i в квадратных скобках.
Ответ от Енот[гуру]
for i:=1 to n do
begin
m:=random(100);
end;
где n размерность массива, укажешь при описании, 100- интервал из которого будут выбираться числа
for i:=1 to n do
begin
m:=random(100);
end;
где n размерность массива, укажешь при описании, 100- интервал из которого будут выбираться числа
Ответ от Даниил Петранов[эксперт]
Массив задается так : имя: array [номер первого элемента .. номер последнего элемента] of тип переменной;
Пример a:array [1..100] of integer;{в нем будет 100 элементов}
может быть и так a:array [100..1234] of integer;
типы переменных
integer - целые числа
real - дробные числа
byte - целые от 0 да 255 включительно
заполняется
var a:array [1..100] of integer;
i:longint;
begin
randomize;//каждый раз выдаются новые числа
for i:=1 to 100 do
a:=random(100);// значения до 100
end;
а если дробными то
var a:array [1..100] of real;
i:longint;
begin
randomize;
for i:=1 to 100 do
a:=random(100)+random;
end;
Массив задается так : имя: array [номер первого элемента .. номер последнего элемента] of тип переменной;
Пример a:array [1..100] of integer;{в нем будет 100 элементов}
может быть и так a:array [100..1234] of integer;
типы переменных
integer - целые числа
real - дробные числа
byte - целые от 0 да 255 включительно
заполняется
var a:array [1..100] of integer;
i:longint;
begin
randomize;//каждый раз выдаются новые числа
for i:=1 to 100 do
a:=random(100);// значения до 100
end;
а если дробными то
var a:array [1..100] of real;
i:longint;
begin
randomize;
for i:=1 to 100 do
a:=random(100)+random;
end;
Ответ от Ѐоман Малиновский[гуру]
var a : array[1..255] of real;
i : integer;
begin
for i := 1 to 255 do begin
readln(a);
end;
end.
var a : array[1..255] of real;
i : integer;
begin
for i := 1 to 255 do begin
readln(a);
end;
end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: как сформировать одномерный массив различных чисел в паскале?