Напишите программу, которая в последовательности натуральных чисел:
А) Определяет минимальное число, оканчивающее на 8
Б) Считает количество отрицательных чисел
Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности все где имеется число, оканчивающееся на 8, и хотя бы один отрицательный элемент. Количество чисел не превышает 100. Введенные числа не превышают 10000.
Программа должна вывести два числа- минимальное число, оканчивающееся на 8, и количество отрицательных чисел. Ребят помогите пожалуйста!! Ничего не понимаю в информатике, если не сдам до завтрашнего утра будет 2!!!
А) Определяет минимальное число, оканчивающее на 8
Б) Считает количество отрицательных чисел
Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности все где имеется число, оканчивающееся на 8, и хотя бы один отрицательный элемент. Количество чисел не превышает 100. Введенные числа не превышают 10000.
Программа должна вывести два числа- минимальное число, оканчивающееся на 8, и количество отрицательных чисел. Ребят помогите пожалуйста!! Ничего не понимаю в информатике, если не сдам до завтрашнего утра будет 2!!!
Answers & Comments
Ответ:
var
n, a, min, i, count: integer;
begin
count := 0;
min := 10000;
readln(n);
for i := 1 to n do
begin
read(a);
if ( abs(a mod 10) = 8 ) and ( a < min ) then
min := a;
if a < 0 then
count := count + 1;
end;
write(min, ' ', count);
end.