1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program pr; var x,y,z:real; function zxy(x,y:real):real; var f:real; begin f:=exp(y*ln(x)); zxy:=f; end; begin writeln('Введите х'); readln(x); writeln('Введите y'); readln(y); z:=zxy(x,y); writeln('z= ',z); end.
Var a: array[0..10] of integer;
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (a[i] < 0) then inc(j)
else if (a[i] > 0) then inc(k);
writeln(j, ' ', k);
<span>end.
работает у меня:)</span>
Зачем тебе интернет а бывает крутой