Ввести массивы Z [0..3] и A [0..3] . Для каждого Z[i] и A[i] вычислить функцию F=(Zi Ai)^(3/2) . Найти сумму дробных положительных элементов введенных массивов.
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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
