Значения х принадлежат интервалу [–7;7]. Заполнить столбец х значениями с шагом 0,5. Заполнить столбец y значениями по формуле =

2
∙sin
3
2
3−3
.
Построить график функции y.
В майкрософт ЭКСЕЛЬ!

ответ: Delphi/Pascal

program Matrix24;

var

 a:array [1..10,1..10] of integer;

 Max,M, N, i, j:Integer;

 

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

 

 

for  i:=1 to M do

 begin

  writeln(i,': ');

  for j:=1 to N do

   begin

    Write(j,' : ');

    Read(a[i,j]);

   end;

 end;

 

for  j:=1 to N do

 begin

  writeln(j,': ');

  Max:=a[1,j];

  for i:=2 to M do

   begin

    if a[i,j]>Max then Max:=a[i,j];

   end;

  writeln('Масимальный элемент:',Max);

 end;

end

program Matrix24;

var

 a:array [1..10,1..10] of integer;

 Max,M, N, i, j:Integer;

 

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

 

 

for  i:=1 to M do

 begin

  writeln(i,': ');

  for j:=1 to N do

   begin

    Write(j,' : ');

    Read(a[i,j]);

   end;

 end;

 

for  j:=1 to N do

 begin

  writeln(j,': ');

  Max:=a[1,j];

  for i:=2 to M do

   begin

    if a[i,j]>Max then Max:=a[i,j];

   end;

  writeln('Масимальный элемент:',Max);

 end;

end.

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  var i,j:integer;
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,10,99); a.Println;
  var imax:=0;
  var imin:=0;
  for i:=1 to n-1 do
    if a[i]>a[imax] then imax:=i
    else
      if a[i]<a[imin] then imin:=i;
  if imin<imax then begin
    for i:=imin+1 to imax-1 do
      for j:=imin+1 to imax-1 do
        if a[i]>a[j] then Swap(a[i],a[j])
    end
  else
    for i:=imax+1 to imin-1 do
      for j:=imax+1 to imin-1 do
        if a[i]>a[j] then Swap(a[i],a[j]);
  a.Println
end.

Тестовое решение:
n= 15
46 87 95 49 86 17 43 61 15 57 23 60 84 75 82
46 87 95 86 61 49 43 17 15 57 23 60 84 75 82