I: integer;
begin
for i:= 1 to 5 do
read (x[i]);
for i:= 1 to 5 do
begin
z[i]:= (x[i]+y[i])/2; end
for i:= 1 to 5 do
writeln (‘z[i]=’,z[i]:3:3);
end.
5.11. Вычислить и запомнить значения функции
-1, если xi<= 0,
yi=0, если xi= 0;
yi=xi , если xi< 0 , где xi– элементы массива из 20 элементов.
Var
x: array [1..20] of integer;
y,i: integer;
begin
for i:= 1 to 20 do
read (x[i]);
for i:= 1 to 20 do begin
x[i]:= random(20);
y[i]:= random (20);
for i:= 1 to 20 do begin
if x[i]<0 then y:= x[i];
if x[i]= 0 then y[i]:=0;
if x[i]<= 0 then y[i]:=-1;
end; end;
writeln(y[i]);
end.
5.12. Записать положительные элементы массива (x1 ,x2 ,...x30 ) подряд в массив Y . Var
X: array [1..10] of integer;
y:array [1..10] of integer;
I:integer;
begin
for i:= 1 to 10 do
read(x[i]);
for i:= 1 to 10 do
begin
if x[i]>0 then y[i]:= x[i];
writeln (‘y[i]=’,y[i]);
end; end.
5.13. Переписать в массив Y элементы массива (x1 ,x2 ,...x30 ) в обратном порядке.
Var
x: array [1..30] of integer;
y: array [1..30] of integer;
i: byte;
begin
for i:= 1 to 30 do
read (x[i]);
for i:= 1 to 30 do
begin
x[i]:= random (31-15);
write(x[i]:4);
end;
writeln;
writeln(‘МассивY’);
fori:= n downto 1 do
begin
y[abc(i-n)+1]:= x[i];
write (y[abc(i-n)+1]:4);
end; readln;
end.
5.23.Вычислить произведение положительных элементов массива.
Var
X: array [1..10] of integer;
p,i: integer;
begin
for i:= 1 to 10 do
read(x[i]);
p:=1;
for i:= 1 to 10 do
begin
if x[i]> 0 then p:=p*x[i]; end;
writeln (‘p=’,p);
end.
5.25. Вычислить значения функции z= П15i=1 (n+i)/ i
Var
a:array[1..15] of integer;
i,n:integer;
p,y:real;
Begin
for i:=1 to 15 do
read (a[i]);
read(n);
p:=1;
for i:=1 to 15 do
Begin
y:=(n+i)/i;
p:=p*y;
End;
writeln ('p=',p);
End.
5.26. Вычислить сумму положительных элементов массива (x1,x2,…,x55).
Var
X: array [1..10] of integer;
s,i: integer;
begin
for i:= 1 to 10 do
read(x[i]);
s:=0;
for i:= 1 to 10 do
begin
if x[i]> 0 then s:=s+x[i]; end;
writeln (‘s=’,s);
end.
5.27. Вычислить среднее арифметическое элементов массива. Const n
Var
x: array [1..n] of integer;
s,i,Sa,k: integer;
begin
for i:= 1 to 10 do
read(x[i]);
s:=0; Sa:=0; k:=0;
for i:= 1 to n do
begin
s:=s+x[i] ; end;
Sa:=s/n;
writeln (‘Sa=’,Sa);
end.
5.28. Вычислить среднее арифметическое отрицательных элементов массива, полагая, что в массиве есть отрицательные значения.
Const n
Var
x: array [1..n] of integer;
s,i,Sa,k: integer;
begin
for i:= 1 to 10 do
read(x[i]);
s:=0; Sa:=0; k:=0;
for i:= 1 to n do
begin
if x[i]< 0 then begin
k:=k+1; s:=s+x[i] ; end;
Sa:=s/k;
writeln (‘Sa=’,Sa);
end.
5.29. Вычислить среднее геометрическое положительных элементов
массива, имеющих четные индексы. Если таких элементов нет, то вывести на
печатьпризнак 0.
Var
a: array [1..10] of integer;
k,i,p: integer;
Sg: real;
Begin
for i:= 1 to 10 do
read (a[i]);
k:=0; p:=1;
for i:= 1 to 10 do
if (a[i]>0) and (i mod 2 =0) then begin
k:=k+1; p:=p*a[i]; else write(‘0=’,0);end;
Sg:=exp(k*ln(p));
Writeln (‘Sg=’,Sg);
End.
5.30. Вычислить среднее геометрическое элементов массива, удовлетворяющих условию yi>a, считая, что в массиве есть элементы, для которых выполняется это условие.
Var
y: array [1..10] of integer;
a,i,p,k: integer;
Sg: real;
Begin
for i:= 1 to 10 do
read (y[i]);
read (a);
k:=0; p:=1;
for i:= 1 to 10 do
ifyi> a then begin
k:=k+1; p:= p*y[i];
end;
Sg:=exp(k*ln(p));
Writeln(‘Sg=’,Sg);
End.
5.31. Подсчитать количество элементов целочисленного массива, кратных трем. Var