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

Написать программку на языке паскаль
при помощи подпрограммы функции которая вычисляет малое из чисел a b c d

Задать свой вопрос
1 ответ
PascalABC.NET

type    mass = array [1..4] of integer;

var   a : mass;   
i : integer; 

function min(c : mass) : integer;   
var   
i,minim : integer; 
begin   
minim := c[1]; 
 for i := 2 to 4 do 
  if c[i] lt; minim then   
  minim := c[i]; 
result := minim;   
 end;  

begin 
 for i := 1 to 4 do 
  readln (a[i]); 
writeln ('min = ',min(a)); 
end.

Как параметр я использовал массив из 4 частей. Можно использовать просто переменные и через IF все прописать
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт