С клавиатуры вводится естественное число k,потом последовательно вводится k чисел с

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

Задать свой вопрос
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]lt;min then
min:=A[i];
S:=S+A[i];
end;
Writeln('Сумма - ',S,'  малый - ',min);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт