Ввести массивы Z [0..3] и A [0..3] . Для каждого Z[i] и A[i] вычислить функцию
F=(Zi+Ai)^(3/2) . Найти сумму дробных положительных элементов введенных массивов.
F=(Zi+Ai)^(3/2) . Найти сумму дробных положительных элементов введенных массивов.
More Questions From This User See All
Answers & Comments
uses crt;varf : real;i : byte;z,a : array [0..3] of real;
begin
for i:=1 to 3 do
begin
write('z[ ',i,']= ');
readln(z[i]);
end;
for i:=1 to 3 do
begin
write('a[ ',i,']= ');
readln(a[i]);
end;
writeln(' ______________________');
writeln(' Z[i] | A[i] | f ');
for i:=1 to 3 do
begin
f:=exp(ln(z[i]+a[i])*(3/2));
writeln(' ',z[i]:(3),' | ',a[i]:(3),' | ',f:(3):(2));
end;
writeln(' _______|_______|______');
end.