В последовательности чисел заменить все члены, следующие за наибольшим

@nomad_the_best · Регистрация: 17.12.2010

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

Написать процедуру, которая в последовательности чисел a1...an заменяет все члены, следующие за наибольшим на значение 0.

@Brotherhood6 · 01.01.2011, 23:26

Pascal

max:=a[1]; imax:=1;
for i:=1 to n do
if a[i]> max then begin max:=a[i]; imax:=i;end;
for i:=imax+1 to n do
a[i]:=0;

@Dekio · 02.01.2011, 22:32

Pascal

procedure changer(a :mas; n:integer);
var
i,max :integer;
max:=1;
for i:=1 to n do
if a[i] > a[max] then
max:=i;
inc(max);
for i:=max to n do
a[i]:=0;
end;

@Brotherhood6 · 03.01.2011, 11:20

следующие за нибольшим

понял)))

@nomad_the_best 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 14
		1
	В последовательности чисел заменить все члены, следующие за наибольшим 29.12.2010, 16:21. Показов 1340. Ответов 3 Метки нет (Все метки) Написать процедуру, которая в последовательности чисел a1...an заменяет все члены, следующие за наибольшим на значение 0. 0

@Brotherhood6 26 / 26 / 34 Регистрация: 01.01.2011 Сообщений: 89
	03.01.2011, 11:20	4
	следующие за нибольшим понял))) 0

Опции темы

В последовательности чисел заменить все члены, следующие за наибольшим

Решение