Составить программу на паскале. на турнире соревновались два спортсмена – а и в. всего было проведено n туров. результаты каждого спортсмена по турам записаны в два массива а и в. победителем в каждом туре считается тот, кто в этом туре набрал больше очков. победителем соревнования считается тот, кто победил в большем количестве туров. определить, кто победил в соревновании. если а и в победили одинаковое число раз, то засчитывается ничья.

var

 a: array of real;

 b: array of real;

 a_sum, b_sum, i, n: integer;

 a_values, b_values: real;

begin

 randomize;

 writeln('Введите количество туров: ');

 readln(n);

 a := new real[n];

 b := new real[n];

 a_sum := 0;

 b_sum := 0;

 writeln('Введите результаты первого спортсмена: ');

 for i := 0 to n - 1 do  

 begin

   readln(a_values);

   a[i] := a_values;

 end;

 writeln('Введите результаты второго спортсмена: ');

 for i := 0 to n - 1 do  

 begin

   readln(b_values);

   b[i] := b_values;

 end;

 writeln('Результаты первого спортсмена: ');

 for i := 0 to n - 1 do  

   write(a[i], ' ');

 writeln(#10);

 writeln('Результаты второго спортсмена: ');

 for i := 0 to n - 1 do  

   write(b[i], ' ');

 writeln(#10);

 for i := 0 to n - 1 do

   if (a[i] > b[i]) then inc(a_sum) else  

   if a[i] = b[i] then begin inc(a_sum);inc(b_sum); end else  

   if (a[i] < b[i]) then inc(b_sum);

 writeln('Первый спортсмен победил в ', a_sum, ' турах.', #10, 'Второй спортсмен победил в ', b_sum, ' турах.');

 if (a_sum = b_sum) then writeln('В общем зачёте ничья!') else  

 if (a_sum > b_sum) then writeln('В общем зачёте побеждает первый спортсмен!') else  

 if (a_sum < b_sum) then writeln('В общем зачёте побеждает второй спортсмен!');

end.

Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:


// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
  Point=record
  x,y:real
  end;

procedure GetPoint(c:char;var M:Point);
begin
  Write('Введите координаты точки ',c,': ');
  Read(M.x,M.y)
end;

function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

begin
  var A,B,C:Point;
  GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
  var ab:=Dist(A,B);
  var bc:=Dist(B,C);
  var ac:=Dist(A,C);
  if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
    Writeln('Треугольник существует')
  else Writeln('Треугольник не существует')
end.

Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.