• Помогите пожалуйста
    1. Найти максимальное значение среди всех элементов массива.
    2. Найти минимальное значение среди всех элементов массива.
    3. Найти минимальное и максимальное значения среди всех
    элементов массива.
    (Паскаль)

Ответы 5

  • А у меня в школе такое примут, просто учитель, вроде не так показывал делать?
  • Вы просили написать на паскале, я написал на паскале. Я не знаю как учат Вас в школе. Все нужно указывать в условии
  • Спасибо
    • Автор:

      ace37
    • 5 лет назад
    • 0
  • // PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!beginvar a:= ReadlnString('Введите массив').ToIntegers;Writeln('Максимальное значение: ', a.Max);Writeln('Минимальное значение: ', a.Min);end.
  • //Pascalvar  A: array [1..5] of integer;  min, max: integer;  i: byte;begin  writeln('Заполнение массива.');  for i := 1 to 5 do  begin    write('А[', i, '] = '); readln(A[i]);  end;  writeln;  Max := A[1]; Min := A[1];  for i := 1 to 5 do  begin  if Max < A[i] then Max := A[i];  if Min > A[i] then Min := A[i];  end;  writeln('Максимальное = ', Max);  writeln('Минимальное = ', Min);  writeln('Максимальное и минимальное = ', Max, ' и ',Min);end.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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