Скачать программу TurboPascal7.0
материал по информатике и икт (11 класс) на тему

program ex_1;

uses crt;

var

 i,j:integer;

 x,y:array[0..100,0..100] of real;

 begin

  for i:=1 to 10 do

  for j:=1 to 10 do

  write(x[i,j]);

  read(x[i,j]);

  begin

   begin

    If (x[i]<>0) and (x[j]<>0) then begin  y[i,j]:=ln(abs(sin(x[i]))/(cos(x[i]))*ln(sin(x[j])) else  y[i,j]:=1;

   readln(y[i,j]);

   write('y[',i,j,']=');

   readln(y[i,j]);

   end;

   end;

   end;

   end.

 { begin

    write;

   read(x);

   for i:=1 to 15 do

   begin readln (a[i]);

   P:=1;

   i:=i+2;

   for i:=i to 15 do}