Задание определенного массива

@Zwelenewskiy · Регистрация: 09.01.2017

Author24 — интернет-сервис помощи студентам

Как задать массив с определенными значениями? Т.е.,например, массив состоит только из элементов 1,9,10

@Hitoku · 23.02.2017, 17:23

Можно сильно не запариваться и сделать массив из 3-х элементов - 1,9 и 10. Сделать переменную, которая будет на рандоме принимать значения 1-3. Ну и через условный оператор заполнять типа

Pascal

var
A:array [1..100] of integer;
B:array [1..3] of integer;
i,j,n:integer;
begin
  randomize;
  writeln('Количество элементов = ');
  readln(n);
  B[1]:=1;
  B[2]:=9;
  B[3]:=10;
  for i:=1 to n do
    begin
      j:=random(3)+1;
      A[i]:=B[j];
      write(A[i],' ');
    end;
end.

Но это если совсем не париться

@Puporev · 23.02.2017, 17:27

Сообщение от Zwelenewskiy

Как задать массив с определенными значениями?

Например так.

Pascal

1 2	const n=3; a:array[1..n] if integer=(1,9,10);

@Hitoku · 23.02.2017, 17:33

Можно вот так, чтобы самому задавать числа, из которых надо делать массив

Pascal

var
A:array [1..100] of integer;
B:array [1..100] of integer;
i,j,n,m,c:integer;
begin
  randomize;
  m:=0;
  writeln('Количество элементов = ');
  readln(n);
  writeln('Из каких чисел должен состоять массив (0 - конец записи):');
  for j:=1 to 100 do
    begin
      readln(c);
      if c=0 then break else begin
          inc(m);
          B[j]:=c;
        end;
    end;
  for i:=1 to n do
    begin
      j:=random(m)+1;
      A[i]:=B[j];
      write(A[i],' ');
    end;
end.

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
		1
	Задание определенного массива 23.02.2017, 16:47. Показов 365. Ответов 3 Метки нет (Все метки) Как задать массив с определенными значениями? Т.е.,например, массив состоит только из элементов 1,9,10 0

	23.02.2017, 17:33