На Паскале. В текстовый файл t1 записана последовательность целых чисел, разбитых

На Паскале.
В текстовый файл t1 записана последовательность целых чисел, разбитых пробелами.
Написать программку, записывающую в текстовый файл t2 все положительные числа из t1.

Задать свой вопрос
Мирослава Даурцева
Я верно понимаю, что в каждой строке файла находится безызвестное (и, возможно, различное) количество целых чисел?
Ирина Мацегорина
да
1 ответ
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ReadAllLines('int.txt').JoinIntoString.ToIntegers;
  Print('Прочитано'); a.Println;
  var b:=a.Where(x-gt;xgt;0);
  Print('Отобрано'); b.Println;
  var f:=OpenWrite('out.txt');
  foreach var e in b do Write(f,e,' ');
  f.Close
end.

Тестовое решение:
Прочитано -5 8 -3 -2 0 -6 4 9 0 0 4 -4 -1 0 -1 3 6 7 1 8 0 2 -5 -2 9
Отобрано 8 4 9 4 3 6 7 1 8 2 9
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт