С клавиатуры вводится натуральное число k,затем последовательно вводится k чисел с плавающей точкой. Найти сумму этих чисел и наименьшее них. Паскаль...
С клавиатуры вводится натуральное число 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]
Не нашли ответ?
Похожие вопросы