Задани 3 В 1 - Pascal

Формулировка задачи:

1)Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел.можно делать делать как одна строка матрицы 2)Заданный одномерный массив отсортировать по возрастанию цифры десятков каждого элемента. Сортировка включением. 3)Написать программу с рекурсивной функцией, вычисляющей произведение элементов одномерного массива.

Решение задачи: «Задани 3 В 1»

Листинг программы

uses crt;
type mas=array[1..100] of real;
function Proiz(m:mas;n:integer):real;
begin
if n=0 then Proiz:=1
else Proiz:=m[n]*Proiz(m,n-1);
end;
var a:mas;
    n,i:integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
read(a[i]);
readln;
write(Proiz(a,n):0:3);
readln
end.

Объяснение кода листинга программы

Входные данные: n (число) и a (массив из n чисел).
Используется функция Proiz, которая принимает массив m и число n и возвращает результат.
Если n = 0, то возвращается 1.
В противном случае возвращается произведение m[n] и результата функции Proiz, вызванной рекурсивно с аргументами m и n-1.
Переменная a инициализируется как массив из n чисел.
Число n считывается с помощью функции readln.
Для каждого числа в массиве a вызывается функция Proiz с аргументами a и n.
Результат функции Proiz выводится на экран с помощью функции write.
Программа завершается с помощью функции readln.