Напишите программу, которая в последовательности натуральных чиселопределяет сумму трехзначных чисел, оканчивающихся на 7 Программа получает на входколичество чисел в последовательности, а затем сами числа. Количество чисел непревышает 1000 Введённые числа не превышают 30 0 Программа должна вывестиодно число — сумму трехзначных чисел, оканчивающихся. на 7 или сообщить, что такихчисел не было.

программа первая; var s, n, a, i: целое число; начало S: = 0; readin (п); для i: = от 1 до n начать чтение в (а); если (мод 2 <> 0) и (мод 10 = 7), то s: = sta; конец; написать (а); конец. ### программа два; var s, n, a, i, k: целое число; начало s: = 0; readln (п); для i: = 1 сделать begin readln (a); если (a mod 2 = 0) и (a> 99) и (a <1000), то k: = k + s: = sta; конец;написать (к, с / к); конец.

Вот если не сложно дай лучший