Номер 80,помогитееее плиииииз,срооочнооо

Номер 80,помогитееее плиииииз,срооочнооо

Задать свой вопрос
1 ответ
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 gt;= c) then begin
ans := i;
break;
end;
end;
write(ans);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт