Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
Function get_random(min,max:integer;n,x:boolean):integer;
begin
if n then min:=min+1;
if x then max:=max-1;
get_random := random(min,max);
end;
вызов фунциии:
[0;15),
get_random(0,15,false,true);
[0;15],
get_random(0,15,false,false);
[-15;15],
get_random(-15,15,false,false);
[10;15)
get_random(10,15,false,true);
Деревья . Они в результате фотосинтеза выделяют кислород и забирают себе угл газ
<span>Теоретически, программы можно установить на компьютер и без ведома операционной системы, например, это относится к приложениям MS-DOS. В этом случае они не будут представлены в меню Программы, но ничто не мешает создать им ярлыки и ввести их в меню вручную методом перетаскивания</span>