Răspuns :
Răspuns:
program mediile;
var n,i:integer; m,min,max:real;
begin
read(n);
read(m); min:=m; max:=max;
for i:=2 to n do
begin
read(m);
if m < min then min:=m;
if m > max then max:=m;
end;
writeln('max=',max,' min=',min);
if min < 5 then writeln('sunt corigenti');
end.
Explicație:
Vă mulțumim că ați vizitat site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru întrebări sau asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!