X1=0; x2=0,2; x3=0,4; x4=0,6; x5=0,8 соответственно y1=4 ; y2=3,24 ; y3=2,56; y4=1,96 ; y5=1,44
x6=1 x7=1,2 x8=1,4 x9=1,6 x10=1,8 x11=2 соответственно y6=2 y7=2,44 y8=2,96 y9=3,56 y10=4,24 y11=5
Uses crt;
const n=12;
var m:array[1..n] of integer;
k,s,i:integer;
begin
randomize;
for i:=1 to n do
begin
m[i]:=random(9)+1;
writeln(m[i]);
if m[i] mod 2<>0 then begin inc(k); s:=s+m[i]; end;
end;
writeln;
writeln(k);
writeln(s);
end.
<span><span>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.</span></span>