1) *
******
*****
2)**
т.к. тут 0, то ничего нет
****
***
Ответ:
Настройки экрана неправильны
Объяснение:
Такое происходит когда выравнивание значков идёт по сетке.
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.