Программирование на 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.