Question

Salut! Am nevoie de ajutor cu o problema PASCAL!
Mersi anticipat!!!
Se considera un Tablou unideminsional de numere reale. Elaborati un program care determina numarul cel mai mic din tablou, utilizand functia.

Answer 1

program minCuFunc;

type tablou=array[1..100]of real;

var a:tablou; n,i:integer;

function min(n:integer; a:tablou):real;

var j: integer;

   m:real;

begin

 m:=a[1];

 for j:=2 to n do

   if a[j]<m then m:=a[j];

 min:=m;

end;

begin

 write('n= '); read(n);

 writeln('introdu ',n,' numere reale: ');

 for i:=1 to n do

   read(a[i]);

 writeln('minimal este ',min(n,a));

end.