Вопрос по информатике:
Паскаль!!
Заполните массив из N элементов случайными числами в интервале [1,N] так, чтобы в массив обязательно вошли все числа от 1 до N.
Пример:
Массив:
3 2 1 4 5
- 10.12.2015 08:07
- Информатика
- remove_red_eye 16643
- thumb_up 32
Ответы и объяснения 1
Const m = 50;var n,s,d,i,j:integer;A, B:Array[1..m] of integer;beginwrite('Введите число элементов n');readln(n);for i:=1 to n dobeginb[i]:= i;write(b[i]:3)end;writeln;while (d 0) and (s = b[j]) thenbegin d:= d +1; a[d]:= s; b[j]:= -1; end;end;end;
for i:=1 to n dowrite(A[i]:3);
end.
- 11.12.2015 16:06
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.