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[1..100] of integer;
i,n:byte;
sum,min:integer;

begin

read(n);
writeln;

for i:=1 to n do read(a[i]);

min:=a[1];
sum:=0;

for i:=1 to n do begin
if a[i]<min then min:=a[i];
sum += a[i];
end;

writeln;
writeln(sum,' ',min);

end.