Вопрос № 87830: Уважаемые эксперты, помогите с задачей:
- Дан массив А длинной n=20. заменить нулями элементы между -минимальным и максимальным, кроме них самих...
заранее благодарен... ...
Вопрос № 87.830
Уважаемые эксперты, помогите с задачей:
- Дан массив А длинной n=20. заменить нулями элементы между -минимальным и максимальным, кроме них самих...
заранее благодарен...
Отправлен: 21.05.2007, 00:28
Вопрос задал: DancaN (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Устинов С.Е.
Здравствуйте, DancaN!
const n=20;
var a:array[1..n] of integer;
i,min,max:integer;
begin
for i:=1 to n do readln(a[i]);
min:=1; max:=1;
for i:=2 to n do
begin
if a[min] > a[i] then min:=i;
if a[max] < a[i] then max:=i;
end;
if min > max then
begin
i=min;
min:=max;
max:=i;
end;
for i:= min+1 to max-1 do a[i]:=0;
for i:=1 to n do writeln(a[i]);
end.
