Pascal:
begin
write('Numar n (n>0): ');
var n := ReadInteger;
assert(n>0);
write('Dati 1 cifra: ');
var x :=ReadReal;
var max := x;
var min :=x;
for var i := 2 to n do
begin
write('Dati ',i,',numar: ');
x := ReadReal;
if max < x then
max := x;
if min>x then
min:=x;
end;
writeln('Maximum din cifrele introduse: ', max);
writeln('Minimum din valorile introduse: ',min);
end.
Pseudocod:
Inceput
Citeste n
Citeste valoarea naturala x
Lui max atribuie x
Lui min atribuie x
Pentru i:=2 pana la n executa
Citeste elementele x
Daca max<x atunci
max atribuie x
Daca min>x atunci
min atruibuiei x
Afiseaza max
Afiseaza min
Sfarsit
