Перший потяг виїхав з пункту а в пункт в. через деякий час з пункта а в тому самому напрямі віїхав другий потяг, швидкість якого на 30 км/год більша, ніж швидкість першого потяга. дослідіть, на якій відстані від пункту а другий потяг наздожене перший залежно від їх швидкостей і часу, через який віїхав другий потяг. Треба зробити таблицю в Excel

uses crt;

const n=10;

var a: array[1..n] of integer;          

 i,j,k: byte; c: integer;

begin  

randomize;  

clrscr;  

writeln('исходный массив: ');  

for i:=1 to n do   begin    

a[i]:=random(19)-9;  

 write(a[i]:3);   end;  writeln;

 k:=0;  for i:=1 to n-1 do   f

or j:=i+1 to n do    if a[i]>a[j] then     begin      

c:=a[i];      

a[i]:=a[j];    

 a[j]:=c;      

inc(k);    

end;  

writeln('результат сортировки: ');

 for i:=1 to n do   write(a[i]:3);  

writeln;  

writeln('кол-во перестановок = ',k);

end.

uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer;     a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do  begin   a[i].x:=random(getmaxX);   a[i].y:=random(getmaxY);   circle(a[i].x,a[i].y,2);  end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do  begin   if a[i].y>getmaxY-n-10 then a[i].y:=1   else a[i].y:=a[i].y+3;   if a[i].x<0 then a[i].x:=getmaxX   else a[i].x:=a[i].x-1;  end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then  begin   n:=n+1;   line(0,getmaxY-n,getmaxX,getmaxY-n);  end; until keypressed; readln end.