Вопрос по информатике:
ДАЮ 99 БАЛЛОВ!!Напишите программу на Паскале пожалуйста.Заполните одномерный массив с помощью датчика случайных чисел таким образом,чтобы все его элементы были различны(не используйте пожалуйста логарифмы и тд ,максимально простое оформление)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.07.2017 00:02
- Информатика
- remove_red_eye 6607
- thumb_up 37
Ответы и объяснения 2
var a:array[1..n] of integer;
b,i:integer;
mn:set of byte;
begin
Randomize;
a[1]:=random(100)+1;
mn:=[a[1]];
for i:=2 to n do
begin
b:=random(100)+1;
while b in mn do b:=random(100)+1;
a[i]:=b;
mn:=mn+[b];
write(a[i]:3);
end;
end.
Пример:
48 4 91 38 69 71 75 50 46 73 33 10 60 98 42 77 83 15 76
- 22.07.2017 05:19
- thumb_up 30
var a:array[1..n] of integer;b,i,j:integer; t:boolean;
begin
Randomize;
writeln;
for i:=1 to n do begin
t:=false;
while t=false do begin
a[i]:=random(100)+1;
t:=true;
for j:=1 to i-1 do
if a[i]=a[j] then t:=false;
end;
write(a[i]:4);
end;
end.
85 100 91 43 88 27 2 40 97 81 29 95 58 24 28 84 8 12 67 6
- 23.07.2017 22:41
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.