var a:array of real; i:byte; n:integer; min,sum:real; begin readln(n); setlength(a,n); for i:=0 to n-1 do read(a[i]); min:=a[1]; for i:=0 to n-1 do begin if a[i]<min then min:=a[i]; end; for i:=0 to n-1 do sum += a[i]; Writeln('Suma: ',sum,' Minimul: ',min); end.
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!
