WRITELN('NO')

ELSE

wRITELN('vivod massiva B');

FOR I:=1 TO K DO

WRITELN(B[I]);

readln;

readln;

End.

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

Составить массив "B"из номеров различных (не повторяющихся) элементов исходного массива "A" .

program p32;

const n=5;

Var

A,B:array[1..n] of integer;

I,J,K,F:integer;

Begin

writeln('vvod massiva A');

for i:=1 to n do

read(A[i]);

K:=0;

for I:=1 to n do

BEGIN

F:=0;

for j:=1 to n do

if (A[I]=A[J]) AND (I<>J) THEN

F:=1;

IF F=0 THEN

BEGIN

K:=K+1;

B[K]:=I;

END;

END;

IF K=0 THEN

WRITELN('NO')

ELSE

wRITELN('vivod massiva B');

FOR I:=1 TO K DO

WRITELN(B[I]);

readln;

readln;

End.

Двумерные массивы

Дана квадратная матрица.

Произвести транспонирование (переворот) матрицы относительно ее главной диагонали

program p1;

const N=4;

Var

A:array[1..N,1..N] of real;

I,J,B:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO N DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

FOR I:=1 TO N DO

FOR J:=1 TO N DO

IF I<J THEN

BEGIN

B:=A[I,J];

A[I,J]:=A[J,I];

A[J,I]:=B;

END;

WRITELN('vIvod massiva');

FOR I:=1 TO N DO

BEGIN

FOR J:=1 TO N DO

WRITE(A[I,J],' ');

WRITELN;

END;

readln;

readln;

End.

Дана квадратная матрица.

Произвести переворот матрицы относительно ее побочной диагонали

program p2;

const N=4;

Var

A:array[1..N,1..N] of real;

I,J,B:integer;

Begin

WRITELN('vvod massiva');

FOR I:=1 TO N DO

BEGIN

FOR J:=1 TO N DO

read(A[I,J]);

WRITELN;

END;

FOR I:=1 TO N DO

FOR J:=1 TO N DO

IF I+J<N+1 THEN

BEGIN

B:=A[I,J];

A[I,J]:=A[N+1-J,N+1-I];

A[N+1-J,N+1-I]:=B;

END;

WRITELN('vIvod massiva');

FOR I:=1 TO N DO

BEGIN

FOR J:=1 TO N DO

WRITE(A[I,J],' ');

WRITELN;

END;

readln;

readln;

End.