Сформировать массив из случайных чисел, в которых ровно две единицы, стоящие на случайных позициях

@keevs · Регистрация: 12.10.2012

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

Сформировать массив из случайных чисел, в которых ровно две единицы, стоящие на случайных позициях.

@Puporev · 22.10.2015, 18:08

Pascal

var a:array[1..20] of integer;
    b,c,i:integer;
begin
randomize;
b:=1+random(20);
repeat
c:=1+random(20);
until c<>b;
for i:=1 to 20 do
 begin
  if (i=b)or(i=c) then a[i]:=1
  else a[i]:=2+random(50);
  write(a[i]:3);
 end;
end.

@keevs -4 / 1 / 0 Регистрация: 12.10.2012 Сообщений: 34
		1
	Сформировать массив из случайных чисел, в которых ровно две единицы, стоящие на случайных позициях 22.10.2015, 17:35. Показов 2911. Ответов 1 Метки нет (Все метки) Сформировать массив из случайных чисел, в которых ровно две единицы, стоящие на случайных позициях. 0

	22.10.2015, 18:08

Сформировать массив из случайных чисел, в которых ровно две единицы, стоящие на случайных позициях

Решение