Массивы, центр экрана Опции

[Len]

Люди, подскажите, пожалуйста, как сделать, чтобы одномерный массив выаодилс по середине строки, то есть, например в ответе: 1 3 4 5, а надо так:

                                              1
                                              3
                                              4
                                              5

Только по середине строки, а не экрана.

Код

Program massiv;
uses crt;
var
a:array[1..100] of real;
n,i:integer;
begin
clrscr;
writeln('Введите размерность одномерного массива:');
readln(n);
For i:=1 to n do
begin
 write('Введите ',i,' элемент: '); readln(a[i])
end;
write('Одномерный массив а размерностью ',n,' = ');
for i:=1 to n do write (a[i]:1:0,' ');
readln;
end.

Пробелы сохраняются только в тегах "Цитата"

Сообщение отредактировано: volvo - 6.04.2005 17:39