1. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 9.
2. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 8.

1.var n,a,min,i:integer;beginwrite('n = ');readln(n);min:=999999;writeln('Вводите числа:');for i:=1 to n do begin readln(a); if (a mod 9=0)and(a<min) then min:=a; end;writeln('min = ',min);end.Пример:n = 5Вводите числа:2599301887min = 182.var n,a,s,i:integer;beginwrite('n = ');readln(n);s:=0;writeln('Вводите числа:');for i:=1 to n do begin readln(a); if abs(a) mod 10=8 then s:=s+a; end;writeln('s = ',s);end.Пример:n = 5Вводите числа:4118259864s = 116