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

Паскаль ...

Question

Информатика

Полина

12 августа, 23:17

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

Паскаль ...

+4

Ответы (1)

Знаете ответ?

Митюня · Answer 1

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]
min:=A[i];

S:=S+A[i];

end;

Writeln ('Сумма - ', S,' минимальный - ', min) ;

end.

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

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

Паскаль ...