Задать вопрос
1 июня, 08:29

Помогите написать программу в паскале.

Заполните массив из N элементов случайными числами в интервале [1, N] так, чтобы в массив обязательно вошли все числа от 1 до N (постройте случайную перестановку).

Пример:

Массив:

3 2 1 4 5

+2
Ответы (1)
  1. 1 июня, 09:39
    -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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите написать программу в паскале. Заполните массив из N элементов случайными числами в интервале [1, N] так, чтобы в массив ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы