Переменная а, в, с, х:целый;
Начало
ввод(а);
с:=0;
для в:=1 до а делать
Начало
ввод(х);
если х>0 тогда начало
с:=с+х;
конец;
вывод("Количество слагаемых: ", в, " Сумма: ", с);
конец.
<span>Языки, придуманные и разработанные человеком для определенных целей?
Ответ. б формальный.</span>
Var c, ans, n, a, i, sum:integer;
begin
read(n);
read(c);
for i = 1 to n do
begin
read(a);
sum := sum+a;
if (sum >= c) then begin
ans := i;
break;
end;
end;
write(ans);
end.
Бомба, денди. посмотри какие иероглифы повторяются
var a:array [0..10] of real;
i: integer;
begin
for i:=0 to 10 do begin
a[i]:=power(2,i);
writeln('2^',i,'=',a[i]);
end;
end.