Question

Se citesc n numere naturale. Sa se
tipareasca valoarea maxima citita.
pseudocod

Answer 1

var a, k, i, max : integer;

begin

read(k);

max := 0;

for i := 1 to k do

begin

    read(a);

    if max >= a then

       max := a;

end;

end