КОПИРОВАНИЕ МАССИВА

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,' ');

 

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

programN3;

constn=25;

vara : 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.

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