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.
1)4*4=12 вариантов событий
2)2*2*2*2=16 двоек
Ответ: 4 бит.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,9); a.Println;
var maxl:=0; // максимальная из длин
var currl:=1; // текущая длина
for var i:=1 to a.Length-1 do
if a[i]>=a[i-1] then Inc(currl)
else begin
if currl>maxl then maxl:=currl;
currl:=1
end;
if currl>maxl then maxl:=currl;
Writeln('Максимальная длина ',maxl);
end.
<u><em>Тестовое решение:</em></u>
n= 15
4 2 4 4 1 1 1 7 4 9 4 4 5 4 7
Максимальная длина 4
Var
n,i:longint;
begin
readln(n);
for i:=1 to n do write(i,' ');
end.
На Paskal:
1.
program numberzero;var a, y;begin readln (x); y:=1-2*x+5*4 writeln ("Ответ:" + y);end.