У него имеется 50 монет, он раскладывает их в несколько кошельков. После этого зритель из зала называет любое число от 1 до 50, и фокусник отдаёт ему один или несколько кошельков, содержащих в точности названное зрителем количество монет. Как фокуснику нужно разложить монеты по кошелькам, чтобы он мог отдать любое указанное число монет от 1 до 50? ... Новые вопросы в Информатика. Иллюзионист в цирке показывает фокус. У него имеется 50 монет, он раскладывает их в несколько кошельков. После этого зритель из зала называет любое чи … сло от 1 до 50, и фокусник отдаёт ему один или несколько кошельков, содержащих в точности названное зрителем количество монет.

1 2 4 8 16 19

Из этих чисел можно составить любое число от 1 до 50

Сложив все числа получим 50

1+2+4+8+16+19=50

К примеру зритель загадывает число 37

Фокусник дает кошельки с монетами

19+16+4+2+1=37

1) program ex;
 var i:integer ;mas:array [1..10] of integer;
 begin 
  for i:=1 to 10 do   
  begin    
   mas[i]:=random(9)+1;    
   if (mas[i] mod 2)=0 then     
    mas[i]:=mas[i]+1;   
  end;
 end. 
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  mas[i]:=random(9)+1;    
  if (mas[i] mod 2)=0 then     
   mas[i]:=0;   
  else
   mas[i]:=mas[i]*3;
 end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  mas[i]:=random(9)+1;    
  if (i mod 2)=0 then     
   mas[i]:=(mas[i]*mas[i]);   
 end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  readln(mas[i]); 
  if (mas[i]<0) then     
   mas[i]:=mas[i]*(-1);   
 end;
end.

1) var a:array [1..10] of integer;
i:integer;
begin
writeln('Генерируем массив со случайными числами');
for i:=1 to 10 do begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('Выполняем действие');
for i:=1 to 10 do begin
if (i mod 2 = 0) then a[i]:=0 else a[i]:=a[i]*3;
write(a[i],' ');
end;
readln;
end.

2) var a:array [1..10] of integer;
i,k:integer;
begin
writeln('Генерируем массив со случайными числами');
for i:=1 to 10 do begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('Выполняем действие');
k:=a[1];
a[1]:=a[10];
a[10]:=k;
for i:=1 to 10 do write(a[i],' ');
readln;
end.