Комментарии: Решаем задачи Абрамян на Паскале. Series10

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 11:38:08 +0000

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

begin

var n:=ReadlnInteger('введите n:');

var a:=ArrRandomInteger(n,-10,10); a.Println;

write(a.Where(t->t>0).Count>0);

readln;

end.

Автор: Anton

Anton — Thu, 17 Dec 2015 05:37:43 +0000

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

Автор: olegst1975

olegst1975 — Wed, 16 Dec 2015 12:57:32 +0000

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

Автор: olegst1975

olegst1975 — Wed, 16 Dec 2015 12:56:09 +0000

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.

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.

Автор: olegst1975

olegst1975 — Wed, 16 Dec 2015 12:48:39 +0000

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

Автор: Anton

Anton — Tue, 23 Dec 2014 10:16:30 +0000

В ответ на Кирилл. добавил

Автор: Кирилл

Кирилл — Mon, 22 Dec 2014 16:40:26 +0000

В ответ на Кирилл. и ещё break; добавить после k+=1;

Автор: Кирилл

Кирилл — Mon, 22 Dec 2014 16:32:46 +0000

Можно и так:

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.

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.