Ответы и объяснения

  • nelle987
  • Ведущий Модератор
2014-01-05T04:13:24+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Procedure show(t1: serial);
var  x: real;
begin
  while not eof(t1) do
   begin
    read(t1, x);
    if (x > 0) then writeln(x);
  end;
end;