1. Напишите программу, которая в последовательности натуральных чисел определяет...

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 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