program mas_enter;
uses crt;
var i,n:integer;
a:array [1..100] of real;
begin
clrscr;
write('Введите размер массива N=');
readln(n);
writeln('Введите массив:');
{********** Ввод массива ****************************************************}
for i:=1 to n do read(a[i]);
{****************************************************************************}
{********** Вывод массива ***************************************************}
for i:=1 to n do write(a[i]:0:2,' ');
{****************************************************************************}
end.
               (
geocities.com/tphelp)