Задача 15 Урок 15
Primary tabs
Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.
type myArr = array[1..10] of integer; var a: myArr; min, max, i, j : integer; begin randomize(); min := 1; max := 20; i := 1; while i <= high(a) do begin a[i] := min + random(max - min + 1); for j := i downto 1 do if a[i] = a[j-1] then i -= 1; i += 1; end; writeln('the original numbers:'); for i := low(a) to high(a) do write(a[i], ' '); writeln; write('End'); readln(); end.
Вывод консоли:
the original numbers: 3 6 12 7 16 1 11 13 15 10 End
- Log in to post comments
- 58 reads