В массиве, состоящем из 10 целых чисел, отыскать наивеличайший элемент заканчивающийся

В массиве, состоящем из 10 целых чисел, отыскать наибольший элемент заканчивающийся на 5 БУДУ СЕДЕЧНО Признательна!

Задать свой вопрос
1 ответ
Const
   n = 5;
type
   mas = array[1..n] of integer
var 
   max : integer;
begin 
   max := 0;
   for i:=1 to n do 
      if (max lt; mas[i]) and (mas[i] mod 5 = 0) then max := mas[i];

   writeln(max);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт