Program Massiv;
const
N=3;
M=5;
A=0;
B=1;
var
X:array[1..N] of real;
Y,S:array[1..M] of real;
F:array[1..N, 1..M] of real;
i,j:byte;
function log3(x:real):real;
begin
log3:=ln(x)/ln(3);
end;
begin
for i:=1 to N do
write('X[',i:3,']=');
readln(X[i]);
for j:=1 to M do
write('Y[',j:3,']=');
readln(Y[j]);
for i:=1 to N do
for j:=1 to M do
if (abs(sin(X[i]))>=A) and (abs(sin(X[i]))<=B) then
F[i,j]:=sqrt(abs(sin(X[i]-exp(Y[j])))) else
F[i,j]:=3*sin(1-log3(Y[j]));
for j:=1 to M do
begin
S[j]:=0;
for i:=1 to N do
S[j]:=S[j]+F[i,j];
end;
end;
Сообщение отредактировано: Garold -