Question

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

Answer 1

1.
var n,a,min,i:integer;
begin
write('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
Вводите числа:
25
99
30
18
87
min = 18

2.
var n,a,s,i:integer;
begin
write('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
Вводите числа:
41
18
25
98
64
s = 116