А)
var
a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do
a[i]:=random(20)+1;
for i:=10 downto 1 do
write(a[i],' ');
end.
б)
var
a:array[1..20]of integer;
i:integer;
begin
for i:=1 to 20 do
a[i]:=random(11*i)+10*i;
for i:=1 to 20 do
if i mod 2=1 then write(a[i],' ');
end.
Var n,k:integer;
begin
write('n='); readln(n);
k:=1;
while k<=n do
begin
write(k,' ');
k:=k*2;
end;
writeln;
end.
Пример:
n=50
1 2 4 8 16 32
Потому что операнды подобных функций всегда должны быть вещественными, то есть числа с плавающей точкой. Это связано с тем, что существует несколько экземпляров перегруженных функций, соответствующих списку аргументов.