С клавиатуры вводится натуральное число k,затем последовательно вводится k чисел с плавающей точкой. Найти сумму этих чисел и наименьшее них.
Паскаль...
Ответы
Ответ дал:
0
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 then
min:=A[i];
S:=S+A[i];
end;
Writeln('Сумма - ',S,' минимальный - ',min);
end.
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 then
min:=A[i];
S:=S+A[i];
end;
Writeln('Сумма - ',S,' минимальный - ',min);
end.
Вас заинтересует
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад