Begin
kk:=0;
for i:=1 to 15 do begin
a[i]:=random(1)+20;
if(a[i]>10)then inc(kk);
end;
end;
1) 20*40*256*8=1638400 бит
2) Начинаем переводить
1638400/8=204800 байт
204800/1024=200 кбайт
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.
Табличка эксель и скриншот работы в приложениях