Ввести массивы Z [0..3] и A [0..3] . Для каждого Z[i] и A[i] вычислить функцию...

Question

Ввести массивы Z [0..3] и A [0..3] . Для каждого Z[i] и A[i] вычислить функцию
F=(Zi+Ai)^(3/2) . Найти сумму дробных положительных элементов введенных массивов.

Answer 1

program qwr;
uses crt; var f : 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.