Var n,i,s,c:integer;
begin
readln(n);
for i:=1 to n do //сколько произвольных чисел будет.
begin
readln(c); //вводим произвольные числа
s:=s+c; //суммируем
end;
writeln(s); //Вывод суммы
<span>end.</span>
Удивляюсь иногда, как много можно узнать нового, помогая тут!:)
Var a, b, prod, i: integer;
begin
writeln('Введите два числа: ');
readln(a, b);
prod := 0;
if (b < 0) then
for i := b to -1 do
dec(prod, a)
else
for i := 1 to b do
inc(prod, a);
writeln(prod)
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(18, 2, 9);
a.Println;
WriteFormat('S = {0:###}', a.Where(t -> t > 0).Sum)
end.
<h2>5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4</h2><h2>S = 110</h2>
Дробное значение же получается.
1024х2 = 2048
1024 * 0.2 = 204.8
итого 2252,8 ....
как-то некорректно выходит