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

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 11:17:57 +0000

В ответ на Bronislav. Ошибка в 6 строке комментарий //или так a.Where(t->t.isOdd).Count

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 11:14:45 +0000

begin
  var n:=ReadlnInteger('n =');
  println('введите',n,'целых чисел');
  var a:=ReadArrInteger(n);//a.Println;
  write('индексы нечетных: '); a.IndexesOf(t->t.isOdd).Println;
  writeln('всего нечетных: ',a.Count(t->t.isOdd));//или так a.Where(t->t.isEven).Count
  readln;
end.

begin

var n:=ReadlnInteger('n =');

println('введите',n,'целых чисел');

var a:=ReadArrInteger(n);//a.Println;

write('индексы нечетных: '); a.IndexesOf(t->t.isOdd).Println;

writeln('всего нечетных: ',a.Count(t->t.isOdd));//или так a.Where(t->t.isEven).Count

readln;

end.

Автор: Anton

Anton — Thu, 17 Dec 2015 05:06:22 +0000

Поправил:
Было:

Writeln(R);

1	Writeln(R);

Стало:

Writeln(i);

1	Writeln(i);

Автор: olegst1975

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

В задаче …номера всех нечетных чисел …поэтому 14 строку предлагаю поправить

 Writeln(i);//i - как порядковый номер вводимых чисел

1	Writeln(i);//i - как порядковый номер вводимых чисел