Копирование массива

Begin

End.

Begin

Для вывода всех элементов массива следует использовать оператор цикла.

Например, если мы создали массив, используя функцию (см. выше), то вывод массива осуществится так:

program N4;

const n=25;

var a: array [1..n] of real;

m, i: byte;

writeln('Enter number of elements <=', n);

readln(m);

For i:=1 to m do

a[i]:=sin(i);

writeln('Massiv');

For i:=1 to m do

write(a[i]:5:1,' ');

Следующий пример, показывает вывод массива в столбик. Причем перед каждым значением поставим его имя и индекс:

program N3;

const n=25;

var a: array [1..n] of real;

m, i: byte;

writeln('Enter number of elements <=', n);

readln(m);

For i:=1 to m do

a[i]:=sin(i);

writeln('Massiv');

For i:=1 to m do

writeln('a[', i, ']=', a[i]:5:1);

end.

Результат работы программы, например:

Дата добавления: 2014-01-04