Алгоритмы для студентов

Здесь будет ряд алгоритмов из курса лекций "Основы программирования"

Вывод одномерного массива

procedure Print<T>(a: array of T; delim: string := ' ');
begin
  foreach x: T in a do
    write(x, delim);
end;    

// С переходом на следующую строку
procedure Println<T>(a: array of T; delim: string := ' ');
begin 
  Print(a, delim);
  writeln;
end;   .