Вывести линейный массив на экран.

[badname47]

Нужен текст программы, которая выводит линейный массив на экран.
Заранее спасибо.

[Mad_Cat]

for i:=1 to n do
write(mas[i],'   ');

[badname47]

Сообщение от Mad_Cat

for i:=1 to n do
write(mas[i],'   ');

Можно весь текст программы ?

[Mad_Cat]

Изучайте

[badname47]

Сообщение от Mad_Cat

Изучайте

Не подходит.

[Anton_kl]

Program Lin_massiv;
Const n=10; {Размер массива}
Var
a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do
write (a[i]);
end.

[badname47]

Сообщение от Anton_kl

Program Lin_massiv;
Const n=10; {Размер массива}
Var
a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do
write (a[i]);
end.

Спасибо большое