Question

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

Answer 1

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.

Answer 2

Для решения этой задачи на языке Pascal, вам потребуется использовать массив для хранения последовательности чисел и две переменные для подсчета количества чисел, оканчивающихся на 5, и для хранения наибольшего числа, удовлетворяющего этому условию. Затем вы можете пройтись по всем числам в последовательности и выполнить необходимые проверки.

Вот пример кода на Pascal:

pascalCopy code
program CountAndMaxNumbersEndingWith5;

const
  MAX_SIZE = 100;

var
  sequence: array[1..MAX_SIZE] of Integer;
  n, countEndingWith5, maxEndingWith5: Integer;
  i: Integer;

begin
  // Ввод количества чисел в последовательности
  Write('Введите количество чисел в последовательности: ');
  ReadLn(n);

  // Ввод самих чисел в последовательности
  WriteLn('Введите числа:');
  for i := 1 to n do
    ReadLn(sequence[i]);

  // Инициализация переменных перед обработкой
  countEndingWith5 := 0;
  maxEndingWith5 := -1; // Предполагаем, что нет чисел, оканчивающихся на 5

  // Поиск чисел, оканчивающихся на 5, и определение наибольшего из них
  for i := 1 to n do
  begin
    if (sequence[i] mod 10 = 5) then
    begin
      countEndingWith5 := countEndingWith5 + 1;

      // Проверяем, является ли текущее число больше текущего максимального
      if (sequence[i] > maxEndingWith5) then
        maxEndingWith5 := sequence[i];
    end;
  end;

  // Вывод результата
  WriteLn('Количество чисел, оканчивающихся на 5: ', countEndingWith5);
  WriteLn('Наибольшее число, оканчивающееся на 5: ', maxEndingWith5);
end.

Пожалуйста, убедитесь, что вводимые значения соответствуют условиям задачи, а именно, что в последовательности всегда имеется число, оканчивающееся на 3, и не превышает максимальный размер массива MAX_SIZE.