С клавиатуры вводится натуральное число k,затем последовательно вводится k чисел с плавающей точкой. Найти сумму этих чисел и наименьшее них.
Паскаль...

var A:array[1..100] of Real;S,min:real;i,k:integer;beginReadln(k);For i:=1 to k doReadln(A[i]);min:=A[1];For i:=1 to k dobeginIf A[i]<min thenmin:=A[i];S:=S+A[i];end;Writeln('Сумма - ',S,'  минимальный - ',min);end.