• Написать программу, которая вводит с клавиатуры не пустой массив целых чисел, печатает его, затем находит максимальный и минимальный элемент массива, выводит их на экран.

Ответы 1

  • var  a: array [1..100] of integer;i,n,min,max:integer;Begin    read(n);    for i := 1 to n do        read(a[i]);    min:=a[1];    max:=a[1];    for i:= 1 to n do begin        write(a[i],' ');        if max<a[i] then max:=a[i];        if min>a[i] then min:=a[i];    end;    writeln(min,max);End.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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