Напишите программу, которая в последовательности - вопрос №9522391 от DanIEL982 08.01.2022 06:38

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 5, а также наибольшее из этих чисел. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 3. программа должна вывести 2 числа - количество чисел, оканчивающихся на 5 и наибольшее из них. на паскале

DanIEL982 · Answer

var a,b,min,i:integer; begin read(a); min:=0; for i:=1 to (a-2) do begin read(b); if (b mod 10=6) and ((b min) or (min=0)) then min:=b; read(b); end; write(min); end....