Версия для печати темы

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.

write('Одномерный массив а размерностью ',n,' = ');
for i:=1 to n do writeln('':35, a[i]:1:0); { <-- Исправь эту строчку }

uses crt;
var i,n:byte;
   x:array[1..15] of integer;
Begin
  clrscr;
  readln(n);
  for i:=1 to n do
   readln(x[i]);
  for i:=1 to n do
   begin
      gotoxy(37,i+10);
      write(x[i]);
   end;
  readln;
end.