I,k: integer;
begin
k:=0;
for i:= 1 to 10 do
readln (a[i]);
for i:= 10 downto 1 do
if a[i] mod 2= 1 then begin
k:=k+1;
if k=2 then
writeln(a[i]0:
end; end.
4.16. В одномерном массиве перенести элемент, стоящий на первом месте в конец массива.
Var
a: array [1..10] of integer;
I: integer;
begin
for i:= 1 to 10 do
readln (a[i]);
for i:= 1 to 10 do
write (a[i]);
writeln;
a[10]:= a[1];
write (a[i]);
end.
5.1. Вычислить значение функции z= √(xi+a)/ 2 , если xi являются элементами массива, a изменяется от 2 с шагом 0,5. Считатьxi+a>0
Var
a: array [1..10] of integer;
i,n,a,na,z,xi: integer;
begin
for i:= 1 to 10 do
readln (a[i]);
a:=2; na:=0,5;
read (n);
for i:= 1 to 10 do
begin
if xi+a> 0 then
z:= sqrt (xi + a)/ 2;
a:= a+na; end;
writeln( ‘z=,z:3:3);
end.
5.2. Вычислить значение функции z=(a+b+ci)/ i , если a изменяется от 0 до 1 с шагом 0,1, b изменяется от 1 до 3 с шагом 0,2, c i – элементы массива.
Var
c: array [1..10] of integer;
I: integer;
a,b,z: real;
begin
for i:= 1 to 10 do
readln (c[i]);
for i:= 1 to 10 do
a:=0; b:=1;
while (a<=1) and (b<=3) do
begin
z:= ( (a[i]+s+b)/i);
a:= a+0,1;
b:= b+ 0,2;
end;
writeln (‘z=’,z);
end; end.
5.3. Вычислить значения функции u=(xi+y)/z2i-1 , если xi– массив (x1,x2,..,x50), zi – массив (z1,z2,..,z100) , а y изменяется от 1 с шагом 0,25.
Var
x: array [1..5] of integer;
y: array [1..10] of integer;
I: integer;
u,y: real;
begin
for i:= 1 to 5 do
read (x[i]);
for i:= 1 to 10 do
read (z[i]);
begin
u:= (x[i]+y)/ z[2i-1]);
y:= y+0,25;
writeln (‘u=’,u:3:3);
end; end.
5.4. Вычислить значение функции z=xyi/(x+yi ) , если xизменяется одновременно с yi от начального значения a с шагом h, где yi являются элементами массива (y1 ,y2 ,...,y20 ) .
Var
y: array [1..5] of integer;
I: integer;
a,h,z,x,u: real;
begin
for i:= 1 to 5 do
read (y[i]);
read (a,h);
u:=a;
for i:= 1 to 5 do
begin
z:= u*y[i]/(x+y[i]);
u:= a+h; end;
writln (‘z=’,z:3:3);
end.
5.8. Вычислить и запомнить значения функции zi = (x2i +1)/ i, где xi – элементы массива.
Var
x: array [1..5] of real;
z: array [1..5] of integer;
I: integer;
begin
for i:= 1 to 5 do
read(x[i]);
for i:= 1 to 5 do begin
z[i]:= sqrt(sqr (x[i]) +1)/i);
writeln (‘z[i]=’, z[i]:3:3);
end; end.
5.9. Вычислить и запомнить значения функции z=aebx-cx2 при изменении аргумента xот 0 до 2 с шагом 0,1.
Var
x:array [1..20] of integer;
z:array [1..20] of real;
I,a,b,c:integer;
X:real;
Begin
x:=0;
for i:=1 to 20 do
read (x[i]);
for i:=1 to 20 do
begin
z[i]:=a*exp((b*x-c*sqr(x))ln(e));
x:=x+0,1;
write ('z[i]=',z[i]:0:1);end;
End.
5.10. Вычислить и запомнить значения функции zi =(xi +yi )/ 2, где x,y – массивы из 45 элементов каждый.
Var
x: array [1..5] of integer;
y: array [1..5] of integer;
z:array [1..5] of integer;