Программирование на Pascal / Delphi / Лабораторная работа1 / LAB_8

program lab_8;
uses crt;
const
   n=2;
   type SA=array[1..n] of integer;
var
   A,B:SA;
   i,su,max:integer;
   L,S:real;
   function f(Q:SA):real;
   var
      sum:real;
      pr:integer;
   begin
      max:=Q[1];
      pr:=1;
      sum:=0;
      for i:=1 to n-1 do
         begin
            if Q[i]>max then max:=Q[i];
            sum:=sum+(cos(Q[i])*sin(Q[i+1]));
            pr:=pr*Q[i];
         end;
      if max<pr*Q[n] then f:=0 else f:=sum;
   end;
   procedure V;
   begin
   su:=0;
      for i:=1 to n do su:=su+A[i]*B[i];
      writeln('Џа®Ё§ўҐ¤Ґ­ЁҐ ¬ ваЁжл Ђ ­  ўҐЄв®а • а ў­®- ',su);
   end;
begin
   randomize;
   clrscr;
   {********* ‡ Ї®«­Ґ­ЁҐ ¬ ваЁжл *********}
   writeln('ќ«Ґ¬Ґ­вл ¬ ббЁў  Ђ');
   for i:=1 to n do
      begin
         A[i]:=random(5);
         write(A[i]:3);
      end;
   writeln;
   {********** ‘зЁв Ґ¬ дг­ЄжЁо ***********}
   L:=f(A);
   if cos(L-5*L*L*L)>0 then
      begin
         S:=ln(cos(L-(5*L*L*L)));
         writeln('‡­ зҐ­ЁҐ дг­ЄжЁЁ а ў­®- ',S);
      end
   else
      writeln('"S" ­Ґў®§¬®¦­® Ї®бзЁв вм');
   {********* Љ®®а¤Ё­ вл ўҐЄв®а  **********}
   writeln('Љ®®а¤Ё­ вл ўҐЄв®а  •');
   for i:=1 to n do
      begin
         B[i]:=random(10);
         write(B[i]:3);
      end;
   writeln;
   V;
   readln;
   readln;
end.