Pascal, задания на min max

Дано целое число N и набор из N целых чисел. Найти количество элементов, расположенных после последнего максимального элемента.

Question

Информатика

Ольга

28 ноября, 08:47

Pascal, задания на min max

Дано целое число N и набор из N целых чисел. Найти количество элементов, расположенных после последнего максимального элемента.

+2

Ответы (1)

Знаете ответ на вопрос?

Микита · Answer 1

var

i, max, n:integer;

a:array[1 ... 10]of integer;

begin

for i:=1 to 10 do

begin

a[i]:=random (10) ;

write (a[i],' ') ;

if a[i]>=max then

begin

max:=a[i];

n:=0;

end

else n:=n+1;

end;

writeln;

writeln ('Ответ: ', n) ;

end.

Pascal, задания на min maxДано целое число N и набор из N целых чисел. Найти количество элементов, расположенных после последнего максимального элемента.

Pascal, задания на min max

Дано целое число N и набор из N целых чисел. Найти количество элементов, расположенных после последнего максимального элемента.