Напишите функцию, которая возвращает объем сферы, радиус которой передается как параметр - Pascal

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

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

Решение задачи: «Напишите функцию, которая возвращает объем сферы, радиус которой передается как параметр»

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

var
  a:array[1..10,1..10] of integer;
  b:array[1..10] of integer;
  i,j:integer;
function min(m:array of integer):integer;
var
  e:integer;
begin
  e:=m[1];
  for j:=1 to 10 do
    if e>m[j] then
      e:=m[j];
  min:=e;
end;
begin
  for i:=1 to 10 do
    begin
      for j:=1 to 10 do
        begin
          a[i,j]:=random(10);
          write(a[i,j]);
        end;
      writeln;
    end;
  for i:=1 to 10 do
    b[i]:=min(a[i]);
  for i:=1 to 10 do
    write(b[i]);
  writeln;
  writeln(min(b));
  readln;
end.

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

В данном коде используется язык программирования Pascal. Код решает задачу нахождения минимального элемента в массиве и выводит его на экран.

Объявляются переменные:
- a: массив размером 10x10 для хранения случайно сгенерированных чисел;
- b: массив размером 10 для хранения минимальных значений из массива a;
- i, j: целочисленные переменные для перебора элементов массива.
Определяется функция min, которая принимает массив в качестве параметра и возвращает минимальное значение. Внутри функции объявляется переменная e, которая инициализируется первым элементом массива. Далее происходит перебор всех элементов массива и если текущий элемент меньше значения переменной e, то значение переменной e обновляется. По завершении цикла, функция возвращает значение переменной e.
Запускается цикл, который генерирует случайные числа в массиве a и выводит их на экран. После этого, в массиве b хранятся минимальные значения из массива a.
Выводятся значения массива b на экран.
Выводится минимальное значение из массива b.
Программа ожидает ввода пользователя с помощью функции readln.