Задача 12 Урок 15
Primary tabs
Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.
program U15Z12; var a: array [1..10] of integer; i,n,j,k: integer; begin randomize(); a[1]:=random(21); write(a[1], '|'); j:=1; while (j<10) do begin n:=random(21); for i:=1 to j do if (n<>a[i]) then k:=1 else begin k:=0; break; end; if (k=1) then begin j:=j+1; a[j]:=n; write(a[j],'|'); end; end; readln(); end.
- Log in to post comments
- 729 reads