Question

Să se scrie un program Pascal care va determina suma, și minimul componentelor (de tip real)unui vector de dimensiune n(1<=n<=100).

Answer 1

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.