Найти количество нулевых элементов до 1го максимального (Паскаль+алгоритм)

[anna.16110702@gmai]

Помогите, пожалуйста!
Найти количество нулевых элементов до 1го максимального (Паскаль+алгоритм)
Нужна программа Паскаль и алгоритм

[digitalis]

program dvojka;

const Nmas=20 ;

var
i,n,imax:integer;
mas: array[1..20] of integer;

begin
  //Тут заполнение массива - рандомное, вручную, из файла, константное или как хошь
  n := mas[1] ;
  imax := 1;
  for i := 2 to Nmas do 
      if mas[i] > n then 
         begin 
            imax := i ;
            n := mas[i]
         end; 
 n := 0 ; 
 for i := 1 to imax-1 do 
      if mas[i] =0  then Inc(n) ;
 Writeln ('Ентих таких алиментов аж ',n) ;
end.

Схемы алгоритмов рисуются с помощью таких значёчков:
https://lpfile.ru/wp-content/uploads...5ae578aa8.jpeg

[macomics]

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

'Ентих таких алиментов аж '

Считал нолики, а вгоняешь в долги

Вот еще вариант. Блок схема, думаю, будет проще

program dvojka;

const Nmas=20 ;

var
i,n,k,m:integer;
mas: array[1..20] of integer;

begin
  //Тут заполнение массива - рандомное, вручную, из файла, константное или как хошь
  n := 0;
  k := 0;
  m := 1;
  for i := m to Nmas do 
      if mas[i] > mas[m] then begin 
            m := i ;
            n := k;
         end;
      if mas[i] = 0 then
          inc(k);
  end;
 Writeln ('Ентих воттаких нулевых аж ',n,' штуков') ;
end.