Writeln('NO')

Else

writeln(k);

readln;

readln;

End.

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

Найти наибольший элемент данного массива

program p4a;

const n=5;

Var

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

i,max:integer;

Begin

for i:=1 to n do

read(a[i]);

max:=a[1];

for i:=1 to n do

if a[i]>max then

max:=a[i];

writeln(max);

readln;

readln;

End.

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

Найти наименьший элемент данного массива.

program p4b;

const n=5;

Var

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

i,min:integer;

Begin

for i:=1 to n do

read(a[i]);

min:=a[1];

for i:=1 to n do

if a[i]<min then

min:=a[i];

writeln(min);

readln;

readln;

End.

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

Найти первый максимальный элемент массива

program p5a;

const n=5;

Var

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

i,max,imax:integer;

Begin

for i:=1 to n do

read(a[i]);

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

for i:=1 to n do

if a[i]>max then

Begin

max:=a[i];

imax:=i;

end;

writeln('max,imax');

write(max,' ',imax);

readln;

readln;

End.

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

Найти первый минимальный элемент массива

program p5a;

const n=5;

Var

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

i,min,imin:integer;

Begin

for i:=1 to n do

read(a[i]);

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

for i:=1 to n do

if a[i]<min then

Begin

min:=a[i];

imin:=i;

end;

writeln('min,imin');

write(min,' ',imin);

readln;

readln;

End.

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

Найти последний максимальный элемент массива

program p5c;

const n=5;

Var

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

i,max,imax:integer;

Begin

for i:=1 to n do

read(a[i]);

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

for i:=n downto 1 do

if a[i]>max then

Begin

max:=a[i];

imax:=i;

end;

writeln('max,imax');

write(max,' ',imax);

readln;

readln;

End.