Link do schematów blokowych: http://hostuje.net/file.php?id=eaac1bcc … 1b59e5916e

Link do pseudokodu (procedury wyróżnione kolorami): http://hostuje.net/file.php?id=69ece45c … a27d1e2c6f


Pseudo kod:
---------------------------------------------------------------------------------------------------------
dim n,i,a,j,max,k ,r, numer As integer

sub caly_program()
  tworzenie_tablicy()
  k = tablica.lenght()
  r = 0
  dim tablica2(k) As Integer

for i to k
  wyszukiwanie_max()
  przepisywanie_elementu()
  usuwanie_elemntu()
next r

  wypisywanie_tablicy2()

end sub

sub tworzenie_tablicy()
      read n

if n > 0 then
  dim tablica(n) As integer
  i = 0
else
  stop
end if

for i to n-1
read a
tablica(i) = a
next i

end sub

sub wyszukiwanie_max()
max = tablica(0)
i=1
numer=0

for i to n-1
   if tablica(i) > max then
    max = tablica (i)
    numer = i
  end if
next i

write(numer)

end sub

sub przepisywanie_elemntu
  tablica2(j) = tablica(numer)
  j = j + 1
end sub

sub usuwanie_elemntu()

  array.clear(tablica, numer, 1)
for numer to n-1
  tablica(numer) = tablica(numer + 1)
next numer
    n = n-1

end sub

sub wypisywanie_tablicy2
  i = 0
for i to n-1
write(tablica2(i))
next i

end sub
-------------------------------------------------------------------------------------------