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

Паскаль ...

Question

Информатика

Андрона

6 февраля, 23:43

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

Паскаль ...

+2

Ответы (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 чисел с плавающей точкой. Найти сумму этих чисел и наименьшее них.

Паскаль ...