• Выбрать наименьшее значение из 20 чисел вводимых с клавиатуры. Программа в Паскале

Ответы 1

  • var i,min: integer; a:array[1..20] of integer;   begin for i:=1 to 20 do  begin   write('Введи число №',i,': ');   readln(a[i]);  end; min:=a[1]; for i:=2 to 20 do   if a[i]<min then     min:=a[i];   Writeln('Минимальное: ',min) end.
    • Автор:

      wiggles
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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