Read Опции

[sheka]

Заполнить массив так, чтобы вводимые элементы располагались на одной строчке экрана.
Всегда пользовался Readln, т.к. он работает почему-то так же как и Read.
Препод рассказывает, что типо не так.
Как это можно осуществить без СRT?

Добавлено через 14 мин.
Ну строку разделять на числа - тоже не вариант

Сообщение отредактировано: sheka - 28.09.2010 23:26

[volvo]

Всегда пользовался Readln, т.к. он работает почему-то так же как и Read.

Неправда. Они работают по-разному. Read не переходит к следующей строке входного файла после прочтения данных.

var
  a: array[1 .. 10] of integer;
  x: integer;
  i, j: integer;
begin
  i := 0;
  while not eoln do
  begin
    read(X);
    inc(i);
    a[i] := X;
  end;

  for j := 1 to i do
    write(a[j]:4);
  writeln;
end.

читает столько чисел, сколько есть, до конца строки. Главное - чтоб не вылететь за границы массива.