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

Ответы 1

  • PascalABC.NETtype    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] < minim then     minim := c[i];  result := minim;    end;  begin  for i := 1 to 4 do   readln (a[i]);  writeln ('min = ',min(a)); end.Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years