I,s:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(25)-10;
writeln(a[i]);
end;
writeln();
s:=0
for i:=1 to 15 do begin
if a[i]>0 then s:=s+1
if s=2 then writeln(a[i]);
end;
end.
4.15. Дан массив, состоящий из 50 элементов, найти предпоследний
нечетный элемент.
var
a: array [1..50] of integer;
k,m,i: integer;
begin
k:=0
for i:=1 to 50 do begin
a[i]:=random(25);
writeln(a[i]);
end;
for i:=50 to 1 do
if (a[i] mod 2=1) and (k<=1) then
begin
k:=k+1;
m:=a[i];
end;
writeln(m);
end.
4.16. В одномерном массиве перенести элемент, стоящий на первом месте
в конец массива.
var
a:array[1..15] of integer;
i,b:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(25);
writeln(a[i]);
end;
writeln();
b:=a[1];
a[1]:=a[15];
a[15]:=b;
for i:=1 to 15 do
writeln(a[i]);
end.
5.1. Вычислить значение функции z= sqrt((xi+a) / 2) , если x[i] являются
элементами массива, a изменяется от 2 с шагом 0,5. Считать xi+a>0.
var
x: array[1..10] of integer;
z,a: real;
I: integer;
begin
for i:=1 to 50 do begin
a[i]:=random(25);
writeln(a[i]);
end;
writeln();
for i:=1 to 10 do begin
z:=sqrt((x[i]+a)/2);
a:=a+0,5;
writeln(z);
end;
end.
5.3.
Вычислить значения функции
, если xi
- массив (x1,x2,...,x50),
zi
- массив (z1,z2,...,z100),
а y
изменяется от 1 с шагом 0,25.
var
x:array[1..50] of integer;
z:array[1..100] of integer;
I:integer;
u,y:real;
begin
randomize;
for i:=1 to 50 do x[i]:=random(25);
for i:=1 to 100 do z[i]:=random(25);
y:=1;
for i:=1 to 50 do begin
u:=(x[i]+y)/z[2*i-1];
writeln(u);
y:=y+0.25;
end;
end.
5. 4. Вычислить значение функции Z=xyi /(x+yi), если x изменяется
одновременно с yi от начального значения a с шагом h, где yi являются
элементами массива (y1,y2,...,y20).
var
a: array [1..20] of integer;
Z ,h,x,x0: real;
I: integer;
Begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(25);
writeln(a[i]);
end;
writeln ('Введите x0');
read (x0);
x:=x0;
h:=2;
for i:=1 to 20 do
begin
Z:=(x*a[i])/(x+a[i]);
writeln (i,' ',Z);
x:=a+h;
end;
end.
5.8.
Вычислить и запомнить значения функции
,
где xi
– элементы массива. В схеме блок печати
стоит за циклом, так как на печать
выводится массив Z.
var
x: array[1..30] of integer;
z: array[1..30] of real;
i: integer;
begin
randomize;
for i:=1 to 30 do begin
x[i]:=random(25);
writeln(x[i]);
end;
writeln();
for i:=1 to 30 do z[i]:=sqrt((sqr(x[i])+1)/i);
for i:=1 to 30 do writeln(z[i]);
end.
5.10. Вычислить и запомнить значения функции Zi=(xi+yi)/2, где
x, y – массивы из 45 элементов каждый.
var
x,y: array [1..45] of integer;
z: array [1..45] of real;
i: integer;
begin
randomize
for i:=1 to 45 do begin
x[i]:=random(25);
y[i]:=random(25);
for i:=1 to 45 do begin
z[i]:=(x[i]+y[i])/2;
writeln (i,' ',z[i]);
end;
end.
5.11. Вычислить и запомнить значения функции
yi=xi, если xi<0;
yi=0, если xi=0;
-1, если xi≥0.
var
x:array[1..30] of integer;
y:array[1..30] of real;
i:integer;
begin
randomize;
for i:=1 to 30 do begin
x[i]:=random(25)-10;
writeln(x[i]);
end;
writeln();
for i:=1 to 30 do if x[i]<=0 then y[i]:=x[i] else y[i]:=-1;
for i:=1 to 30 do writeln(y[i]);
end.
5.16. Записать подряд в массив B элементы массива (x1,x2 ,...x30 ),
имеющие четные индексы.
var
x: array [1..10] of integer;
b: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(25);
writeln(a[i]);
end;
for i:=1 to 10 do begin
if i mod 2=0 then
b[i-1]:=x[i];
end;
for i:=1 to 5 do writeln(b[i]);
end.
5.19. Переписать положительные элементы массива (x1 ,x1 ,...x30 ) в
массив Z , а отрицательные – в массив Y . Элементы в массивах располагать
подряд.
var
x,y,z:array[1..30] of integer;
i,j,k:integer;
begin
randomize;
for i:=1 to 30 do begin
x[i]:=random(25)-10;
writeln(x[i]);
end;
writeln();
j:=0; k:=0;
for i:=1 to 30 do
if x[i]>0 then begin j:=j+1; z[i]:=x[i]; end else if x[i]<0 then begin k:=k+1; y[i]:=x[i]; end;
for i:=1 to k do writeln(y[i]); writeln();
for i:=1 to j do writeln(z[i]); writeln();
end.
5.25.
Вычислить значения функции Z=
.
var
a:array [1..15] of integer;
n,i: integer;
z,y: real;
begin
writeln ('Введите n');
read (n);
for i:=1 to 15 do begin
a[i]:= random(25)-10;
writeln(a[i]);
end;
z:=1;
for i:=1 to 15 do
begin
y:=(n+i)/i;
z:=z*y;
writeln(z);
end;
end.
5.26. Вычислить сумму положительных элементов массива (x1,x2,…,x55).
var
x:array[1..55] of integer;