Найти сумму чисел, заканчивающихся цифрой 4, наибольшее из таких чисел, и номер этого числа в последовательности.

class
  N91841655

create
  make

feature
  random: RANDOM
  time: TIME

feature {NONE}
  make
  local
    n, i, j: INTEGER_32
    a, sum, max: INTEGER_32
  do
    create time.make_now
    create random.set_seed (time.compact_time + time.milli_second)
    n := random.item.integer_remainder (181) + 20
    io.put_string ("Дана последовательность A(")
    io.put_integer (n)
    io.put_string ("):%N")
    from
      i := 1; j := 0; sum := 0
    until
      i > n
    loop
      random.forth
      a := random.item.integer_remainder (401) - 200
      io.put_integer (a)
      io.put_character ('%T')
      if a.integer_remainder (10).abs = 4 then
        if j = 0 or a > max then
          j := i; max := a
        end
        sum := sum + a
      end
      i := i + 1
    end
    io.new_line; io.new_line
    if j = 0 then
      io.put_string ("Нет чисел, заканчивающихся цифрой 4")
    else
      io.put_string ("Для чисел, заканчивающихся цифрой 4:%N")
      io.put_string ("Сумма = ")
      io.put_integer (sum); io.new_line
      io.put_string ("Наибольшее: A(")
      io.put_integer (j)
      io.put_string (") = ")
      io.put_integer (max)
      io.put_string ("%N%NДля завершения работы нажмите Enter...")
      io.read_character
    end
  end

end

Если тебе на Pascal надо программу написать - напиши мне на почту, сделаю.

язык программирования какой?

24, либо .нет 24