• Модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива.
    Предыдущий пример
    Program Massiv;
    Const N=10;
    Var A:array [1..N] of integer;
    i, min:integer;
    begin
    for i:=1 to N do
    begin
    write('Введите',i,'-й элемент:'); readln(A[i]);
    end;
    min:=A[1];
    for i:=2 to N do if A[i] then min:=A[i];
    writeln('Minimum=',min);
    end.

Ответы 2

  • Спасибо
    • Автор:

      cantu
    • 5 лет назад
    • 0
  • Program Massiv;Const N=10;Var A:array [1..N] of integer;i, min, max:integer;beginfor i:=1 to N dobeginwriteln('Введите',i,'-й элемент:'); readln(A[i]);end;min:=A[1];max :=A[1];for i:=2 to N dobeginif A[i] < min then min:=A[i];if A[i] > max then max:=A[i];end;writeln('Minimum=',min);writeln('Maximum=',max);end.
    • Автор:

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

Войти через Google

или

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

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

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