Răspuns :
Răspuns:
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.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.