Найти максимальный элемент в массиве и числа, стоящие до максимального элемента заменить нулями.

@Qwark · Регистрация: 28.01.2011

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

Найти максимальный элемент в массиве и числа, стоящие до максимального элемента заменить нулями.

Скажите как правильно записать условие.
Заранее благодарен.

@Dekio · 28.01.2011, 21:42

Pascal

max:=1;
for i:=1 to n do
if arr[i]>arr[max] then
max:=i;
for i:=1 to max-1 do
arr[i]:=0;

@SuPeR XaKer · 28.01.2011, 21:54

можно и без лишнего цикла:

Pascal

randomize;
imax:=1;
for i:= 1 to n do
begin
 a[i]:=random(10)-5;
 write(a[i]:3);
  if a[i]>a[imax] then
   imax:=i;
end;
writeln;
for i:= 1 to n do
begin
 if i<imax then
  a[i]:=0;
 write(a[i]:3);
end;

@Qwark · 28.01.2011, 23:10 **[ТС]**

оперативно, спс =)

@Qwark 21 / 21 / 21 Регистрация: 28.01.2011 Сообщений: 72
		1
	Найти максимальный элемент в массиве и числа, стоящие до максимального элемента заменить нулями. 28.01.2011, 21:39. Показов 1637. Ответов 3 Метки нет (Все метки) Найти максимальный элемент в массиве и числа, стоящие до максимального элемента заменить нулями. Скажите как правильно записать условие. Заранее благодарен. 0

@Qwark 21 / 21 / 21 Регистрация: 28.01.2011 Сообщений: 72
	28.01.2011, 23:10 [ТС]	4
	оперативно, спс =) 0