Задание 12 Урок 15
Primary tabs
Задание 12 Урок 15
Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.
type arr = array[1..10] of integer; var i,min,max,value_check : integer; first_array : arr; function check(f_array : arr; value_counter, value_ch: integer): integer; var x : integer; begin for x := low(f_array) to value_counter-1 do if f_array[x] = value_ch then begin result := value_counter; exit; end else if x = (value_counter-1) then result := value_counter+1; end; begin min := 0; max := 20; value_check := 0; i := 1; randomize; repeat first_array[i] := min + random(max - min + 1); value_check := first_array[i]; if i > 1 then i := check(first_array,i,value_check); if i = 1 then i += 1; until i > high(first_array); for i := low(first_array) to high(first_array) do write('|', first_array[i], '|'); readln(); end.
- Log in to post comments
- 1908 reads
vedro-compota
Sun, 01/03/2021 - 15:28
Permalink
замечание
в каждом витке (это должно быть вне цикла)
_____________
матфак вгу и остальная классика =)
Dobrii_kot
Sat, 01/09/2021 - 16:51
Permalink
Исправлено
консоль
vedro-compota
Sun, 01/17/2021 - 14:46
Permalink
проверить решение, на типе
проверить решение, на типе данных, где в массиве только 1 элемент.
_____________
матфак вгу и остальная классика =)