uses crt;
type mas=array[1..98] of integer;
var A,F,Q,C:mas;
i,s:integer;
  begin
clrscr;
writeln('Массив первый:');
for i:=1 to 98 do
begin
A[i]:=random(100)-2;
write(A[i]:4);
end;
writeln;
writeln('Массив второй :');
for i:=1 to 98 do
begin
F[i]:=random(100)-2;
write(F[i]:4);
end;
writeln;
writeln('Массив третий :');
for i:=1 to 8 do
begin
Q[i]:=random(60)-52;
write(Q[i]:4);
end;
writeln;
writeln('Массив четвертый:');
for i:=1 to 8 do
begin
C[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]);
write(C[i]:4);
end;
writeln;
end.

Даны массивы A98), F98),Q(8). Сформировать массивы С(8), каждый элемент которого вычисляется по формулеC[i]:=(sqrt(A[i])+sqrt(F[i]))/2+sin(A[i]*F[i])+(sqrt(Q[i])+sqrt(F[i]))/2+sin(Q[i]*F[i])+(sqrt(A[i])+sqrt(Q[i]))/2+sin(A[i]*Q[i]);

Вычисление по формуле (x^2+y^2)/2+sin(X*Y) оформить в виде подпрограммы.

type  mas = array[1..8] of integer;var  A, F, Q: mas;  C:array[1..8] of real;  i: integer;function M(x,y:real):real;beginResult:=(x*x+y*x)/2+sin(x*y)end;begin  clrscr;  writeln('Массив первый:');  for i := 1 to 8 do  begin    A[i] := random(10);    write(A[i]:4);  end;  writeln;  writeln('Массив второй :');  for i := 1 to 8 do  begin    F[i] := random(10) ;    write(F[i]:4);  end;  writeln;  writeln('Массив третий :');  for i := 1 to 8 do  begin    Q[i] := random(10);    write(Q[i]:4);  end;writeln;  writeln('Массив четвертый:');  for i := 1 to 8 do  begin    C[i] := M(A[i],F[i])+M(Q[i],F[i])+M(A[i],Q[i]);    write(C[i]:6:1);  end;  writeln;end.