Задача 15 Урок 15
Primary tabs
Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.
program u15z15; type newArr = array [1..10] of integer; var i,b:integer; n: newArr; begin randomize(); b:=1; while b<10 do begin n[b]:=random(20); for i:=low(n) to b do //сравниваем введенное число и предидущие if n[b]=n[i-1] then begin b:=b-1; break; end; b:=b+1; end; for i:=low(n) to high(n) do //выводим полученный массив write(n[i], ' '); readln; end.
- Log in to post comments
- 159 reads