Задача 15 Урок 15
Primary tabs
Напишите программу, которая будет заполнять массив из 10 элементов
случайными числами из диапазона от 0 до 20, при этом в полученном массиве
не должно быть одинаковых значений.
type myArr1 = array[1..10] of integer; var a: myArr1; 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; write('Числа массива : '); for i := low(a) to high(a) do write(a[i], ' '); writeln; write('Программа завершила свою работу'); readln();readln(); end.
- Log in to post comments
- 272 reads