👤
a fost răspuns

Fiind date de la tastatura un numar n si n numere intregi, se cere sa se gaseasca minimul dintre numerele citite .​

Răspuns :

GRIGORE2018ID

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 pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari