Добавил:
Glavniy_toksik_RTF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:МПЭ [РТФ, Андреев, 3 семестр] / rand
.PAS program rand;
type
m = array[0..8] of integer;
var
mas : m;
i, endValue, randValue : integer;
begin
randomize;
for i := 0 to 8 do begin
mas[i] := 0;
end;
endValue := 0;
writeln('');
while (endValue < 8) do begin
randValue := random(8) + 1;
if(mas[randValue] = 0) then begin
mas[randValue] := 1;
endValue := endValue + 1;
write(randValue, ', ');
end;
end;
end.
type
m = array[0..8] of integer;
var
mas : m;
i, endValue, randValue : integer;
begin
randomize;
for i := 0 to 8 do begin
mas[i] := 0;
end;
endValue := 0;
writeln('');
while (endValue < 8) do begin
randValue := random(8) + 1;
if(mas[randValue] = 0) then begin
mas[randValue] := 1;
endValue := endValue + 1;
write(randValue, ', ');
end;
end;
end.
Соседние файлы в папке МПЭ [РТФ, Андреев, 3 семестр]