Заменить нулями элементы массива, расположенные между первым min и последним max элементами

@Baugette · Регистрация: 15.03.2016

Author24 — интернет-сервис помощи студентам

Заменить нулями элементы массива,
которые расположены между первым минимальным и последним максимальным элементами массива.

Pascal

const n=10; 
var a:array[1..n] of integer; 
i,min,max,n:integer; 
 
begin 
randomize; 
for i := 1 to n do 
begin 
a[i]:=random(5)+1; 
write(a[i],' '); 
end; 
 
begin 
min:=1; 
max:=1; 
for i:=1 to n do 
begin 
if a[i]>a[max] then max:=i; 
if a[i]<=a[min] then min:=i; 
end; 
for i:=1 to n do 
if ((i>=min) and (i<=max)) or ((i<=min) and (i>=max)) then 
write(0) 
else 
write(a[i]); 
end.

@Constantin Cat · 16.03.2016, 15:41

Сообщение от Baugette

первым минимальным и последним максимальным

А в чем проблема, Ваш код выполняет перый максимум и последний минимум. подумайте в чем разница.

@Constantin Cat 3406 / 1825 / 489 Регистрация: 28.02.2015 Сообщений: 3,696
	16.03.2016, 15:41	2
	Сообщение от Baugette первым минимальным и последним максимальным А в чем проблема, Ваш код выполняет перый максимум и последний минимум. подумайте в чем разница. 0