Writeln('yes')

Else

writeln('no');

readln;

readln;

End.

Дан массив А из 2*N элементов.

Получить новую последовательность A1, A2N, A2, A2N-1, …, AN, AN+1

program p11;

const n=3;

Var

a,b:array[1..2*n] of real;

i:integer;

Begin

for i:=1 to 2*n do

read(a[i]);

for i:=1 to n do

Begin

b[2*i-1]:=a[i];

b[2*i]:=a[2*n-i+1];

end;

For i:=1 to 2*n do

writeln(b[i]);

readln;

readln;

End.

Дан массив А из 2*N элементов.

Получить новую последовательность A2N, AN, A2N-1, …, AN+1, A1.

program p12;

const n=3;

Var

a,b:array[1..2*n] of real;

i:integer;

Begin

for i:=1 to 2*n do

read(a[i]);

for i:=1 to n do

Begin

b[2*i-1]:=a[2*n-i+1];

b[2*i]:=a[n-i+1];

end;

For i:=1 to 2*n do

writeln(b[i]);

readln;

readln;

End.

Дан одномерный массив.

Подсчитать количество элементов, равных заданному значению.

program p13;

const n=5;

Var

a,b:array[1..n] of integer;

i,k,z:integer;

Begin

writeln('mas');

for i:=1 to n do

read(a[i]);

writeln('z');

read(z);

k:=0;

for i:=1 to n do

if a[i]=z then

k:=k+1;

writeln(K);

readln;

readln;

End.

Дан одномерный массив.

Составить и вывести новый массив

С номерами элементов исходного массива, равных заданному значению.

program p14;

const n=5;

Var

a,b:array[1..n] of integer;

i,k,z:integer;

Begin

writeln('mas');

for i:=1 to n do

read(a[i]);

writeln('z');

read(z);

k:=0;

for i:=1 to n do

if a[i]=z then

BEGIN

k:=k+1;

B[K]:=I;

END;

IF K=0 THEN

WRITELN('NO')

ELSE

FOR I:=1 TO K DO

writeln(B[I]);

readln;

readln;

End.

Дан одномерный массив.

Составить и вывести новый массив со значениями

Элементов исходного массива, не равных заданному значению.

program p15;

const n=5;

Var

a,b:array[1..n] of integer;

i,k,z:integer;

Begin

writeln('mas');

for i:=1 to n do

read(a[i]);

writeln('z');

read(z);

k:=0;

for i:=1 to n do

if a[i]<>z then

BEGIN

k:=k+1;

B[K]:=A[I];

END;

IF K=0 THEN