Комментарии 8

• Можно и так:

  uses PT4; var n,num,i,k:integer; begin Task('Series10'); read(n); for i:=1 to n do begin read(num); if num > 0 then k+=1; break(); end; write(k>0); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14

  uses PT4; var n,num,i,k:integer; begin   Task('Series10'); read(n); for i:=1 to n do    begin    read(num);       if num > 0 then          k+=1;          break();    end;    write(k>0); end.

  Ответить

  • и ещё break; добавить после k+=1;

    Ответить

    • добавил

      Ответить

    • +добавить begin-end, +хорошо бы дать значение k. Раз делаем с break, то предлагаю следующее

      Ответить

• var n,num,i,k:integer; begin read(n);k:=0; for i:=1 to n do begin read(num); if num < = 0 then continue; k:=1; break; end; write(k>0); end.

  1 2 3 4 5 6 7 8 9 10 11 12

  var n,num,i,k:integer; begin read(n);k:=0; for i:=1 to n do begin read(num); if num < = 0 then continue; k:=1; break; end; write(k>0); end.

  Ответить

• Ура, хоть так. Предыдущее, наверное можно удалить.

  Ответить

• Удалил комментарии с неудачными попытками вставки кода.
  Но я не очень люблю break; считаю, что если без него можно обойтись то лучше уж без него.

  Ответить

• begin var n:=ReadlnInteger('введите n:'); var a:=ArrRandomInteger(n,-10,10); a.Println; write(a.Where(t->t>0).Count>0); readln; end.

  1 2 3 4 5 6

  begin   var n:=ReadlnInteger('введите n:');   var a:=ArrRandomInteger(n,-10,10); a.Println;   write(a.Where(t->t>0).Count>0);   readln; end.

  Ответить