Решить 4 лёгкие задчки022кж50308 клоуны бам, бим и бом вышли на арену в красной, синей и зелёной рубашках. их туфли были тех же 3-х цветов. туфли и рубашка бима были одного цвета. на боме не было ничего красного. туфли бама были зелёные, а рубашка нет. каких цветов были туфли и рубашка у бома и бима? 023кж50401 в 2-х кошельках всего лежит 2р. при этом в одном кошельке денег в 2 раза больше, чем в другом. как такое может быть? 024кж50402 замок окружён рвом, в форме прямоугольной рамки. ширина рва везде одина-кова. есть 2 доски, длины которых равны ширине рва. как переправиться через ров? 025кж50403 можно ли погрузить на 3 грузовика 7 бочек с квасом, 7 пустых бочек и 7 бочек, заполненных наполовину, чтобы на каждом грузовике было по 7 бочек и поровну кваса? !

var  

  arr:array[1..1000] of integer;

  i,N:integer;

  max:integer;

begin

   max:=1;

   

   write('Укажите кол-во эл-ов - ');

   

   read(N);

   

   for i:=1 to N do//Присваивание и вывод массива

   begin

       arr[i]:=1+random(100);

       

       write(arr[i],'  ');

       

       if arr[i]>max then max:=arr[i];

   end;

   

   writeln;

   

   writeln('Максимальный эл-т - ',max);

   

   for i:=1 to N do//Увеличение чет. эл-ов

     begin

     if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

     

     write(arr[i],'  ');

     end;

 

end.

Объяснение:

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -