Массив. Найти максимальный элемент

[perojenko]

хелп пиплс

В одномерном массиве M[15], найти максимальный элемент. После этого удалить его

Заранее спасибо!

[NEMO1991]

max - первый элемент потом проходишь по массиву если есть элемент выше то max - этот элемент и т.д. проходишь по всему массиву. потом записываешь массив кроме маскимаьного элемента

[NEMO1991]

uses crt;
var
m:array[1..15] of integer;
i,max:integer;
begin
for i:=1 to 15 do
read(m[i]);
max:=m[1];
for i:=1 to 15 do
 if max<m[i] then max:=m[i];
 writeln(max);
for i:=1 to 15 do
 if m[i]<max then write(m[i],' ')
 end.

[perojenko]

спасибо, я уже решал подобнул задачку тольк с минимальным элементом
сложность вызывает именно удлаение этого элемента
там надо как-то через дэлэт что-ли

[NEMO1991]

через Delete зайди в справку в Паскале там все написано как ее использовать))

[profi]

нет, не через Delete. а так (например удаляем 3 элемент)

n:=5;
for i:=3 to n do
a[i]:=a[i+1];
dec(n);

В данном коде можно наверное это решить так:

uses crt;
var
m:array[1..15] of integer;
i,max,maxi:integer;
begin
for i:=1 to 15 do
read(m[i]);
max:=m[1];
for i:=1 to 15 do
 if max<m[i] then max:=m[i];
 writeln(max);
for i:=1 to 15 do
 if m[i]<max then
begin
 write(m[i],' ');
maxi:=i;
end;
for i:=maxi to 15 do
m[i]:=m[i+1];
for i:=maxi to 14 do
write ('m[',i,']=',m[i],',');
 end.

[perojenko]

спасибо ) сейчас попробую