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

программа на паскале

Var k, i: integer;

b, s, min: real;

begin

write ('целое число: ');

readln (k); s:=0; min:=10;

for i:=1 to k do

begin write ('число: ', i,' '); readln (b);

while b>10 do

begin

writeln ('число должно быть меньше 10');

write ('повторите ввод: ');

readln (b);

end;

if b
s:=s+b;

end;

writeln ('сумма чисел = ', s);

writeln ('наименьшее число = ', min);

end.

Var g:array[1 ... 100] of integer; var k, i:integer; min, s:integer; beginreadln (k); for i:=1 to k dobeginreadln (g[i]); write (g[i]:3); end; writeln; s:=0; min:=10; for i:=1 to k dos:=s+g[i]; for i:=1 to k dobeginif (min