Дан одномерный массив, все элементы которого различны.

Поменять местами наибольший и наименьший элементы массива.

program p12a;

const n=5;

Var

a:array[1..n] of real;

i,imax,imin:integer;

max,min,b:real;

Begin

writeln('mas');

for i:=1 to n do

read(a[i]);

max:=a[1];imax:=1;

min:=a[1];imin:=1;

for i:=1 to n do

Begin

if a[i]>max then

Begin

max:=a[i];

imax:=i;

end;

if a[i]<min then

Begin

min:=a[i];

imin:=i;

end;

end;

b:=a[imax];

a[imax]:=a[imin];

a[imin]:=b;

for i:=1 to n do

writeln(a[i]);

readln;readln;

End.

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

Подсчитать количество отрицательных, положительных и нулевых элементов

Массива.

program p7;

const n=5;

Var

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

kpol,kotr,knul,i:integer;

Begin

writeln('mas');

for i:=1 to n do

read(a[i]);

kpol:=0; kotr:=0; knul:=0;

for i:=1 to n do

if a[i]>0 then

kpol:=kpol+1

Else

if a[i]<0 then

kotr:=kotr+1

Else

knul:=knul+1;

write('kpol=',kpol,' kotr= ',kotr,' knul= ',knul);

readln;readln;

End.

Дан одномерный массив. Определить составляют ли элементы

Массива строго возрастающую последовательность (первый способ).

program p8;

const n=5;

Var

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

i,k:integer;

Begin

for i:=1 to n do

read(a[i]);

k:=0;

for i:=1 to n-1 do

if a[i+1]>a[i] then

k:=k+1;

if k=n-1 then

Writeln('yes')

Else

writeln('no');

readln;

readln;

End.

Дан одномерный массив. Определить составляют ли элементы

Массива строго возрастающую последовательность (второй способ).

program p9;

const n=5;

Var

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

i,k:integer;

Begin

for i:=1 to n do

read(a[i]);

k:=0;

for i:=1 to n-1 do

if a[i+1]<=a[i] then

k:=1;

if k=0 then