Что объединяет жаккардов станок и табулятор холлерита?

 

Program Matr22; 

Uses Crt;

type matrix=array[1..5,1..5] of integer;

var m:matrix;

        n:byte;

 

 

procedure Auto;
var i,j:integer;
begin

n:=0;
randomize;
 for i:=1 to 5 do
begin
 for j:=1 to 5 do
begin
     m[i,j]:=random(50)+5;

     if (m[i,j]=22) then n:=n+1;
end;
end;
end; 

 

 

procedure PrintMatrix(mas:matrix;);
var j,k:integer;
begin
 for k:=1 to 5 do
begin
 for j:=1 to 5 do
begin
 write(mas[k,j]:3);
end;
writeln;
end;
end;

 

 

begin

      clrscr;

      Auto;

      PrintMatrix(m);

      writeln;

      writeln('Количество элементов равных 22:',n);

      readkey;  

end. 

Var
  x,y:integer;
  vcp,dx,dy:real;
begin
  Write('Возраст Тани='); Read(x);
  Write('Возраст Мити='); Read(y);
  vcp:=(x+y)/2;
  dx:=x-vcp; dy:=y-vcp;
  Writeln('Средний возраст равен ',vcp);
  if dx>0 then begin
    Writeln('Таня старше среднего возраста на ',dx,' лет,');
    Writeln('а Митя младше среднего возраста на ',-dy,' лет.')
  end
  else
    if dx=0 then Writeln('Таня и Митя ровесники')
    else begin
      Writeln('Таня младше среднего возраста на ',-dx,' лет,');
      Writeln('а Митя старше среднего возраста на ',dy,' лет.')
    end
end.

Тестовое решение:
Возраст Тани=15
Возраст Мити=12
Средний возраст равен 13.5
Таня старше среднего возраста на 1.5 лет,
а Митя младше среднего возраста на 1.5 лет.