С клавиатуры вводится натуральное число k,затем последовательно вводится k чисел с плавающей точкой. Найти сумму этих чисел и наименьшее них.
Паскаль...
Var A:array[1..100] of Real;
S,min:real;
i,k:integer;
begin
Readln(k);
For i:=1 to k do
Readln(A[i]);
min:=A[1];
For i:=1 to k do
begin
If A[i]
S:=S+A[i];
end;
Writeln(Сумма - ,S, минимальный - ,min);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
