Печать массива

Пусть в программе уже стандартизирована константа N, соответствующая количеству элементов массива, и сам тип Massive:

Const n=15;

Type Massive=array[1..n] of real;

Тогда печать массива целесообразно оформить как процедуры, учитывая то, что эта операция выполняется довольно часто:

Procedure PrintMas(aa: Massive);

Var ii: byte;

Begin

Writeln;

For ii:=1 to n do Write(aa[ii]:6:2,’ ‘); {вывод на экран результата}

Writeln;Writeln;

End;

Заметим, что процедура вызывается PrintMas(Имя_Массива), то есть требуется лишь имя распечатываемого массива. При этом предполагается, что элементы массива относятся к типу Real. Если мы заменим тип Real на Integer, то придется исправить еще и формат вывода, убрав одну лишнюю цифру, так как формат aa[ii]:6:2 соответствует выводу вещественных чисел.