Question

Помогите написать программу на Паскале, пожалуйста! Нужно до завтра. 1)Напишите программу, которая в последовательности натуральных чисел определяет максимальное нечётное число.Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется нечётное число. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное нечётное число. 2)Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — сумму чисел, оканчивающихся на 4.

Answer 1

1)var n,a,i, max:integer;

begin

 writeln('ведите кол-во чисел');

 read(n);

 max:=0;

 for i:=1 to n do

 begin

   writeln('введите очередное число');

   read(a);

   if (a mod 2=1) and (a>max) then max:=a;

 end;

 writeln(max)

end.

2)var n,a,i, k:integer;

begin

 writeln('ведите кол-во чисел');

 read(n);

 k:=0;

 for i:=1 to n do

 begin

   writeln('введите очередное число');

   read(a);

   if  a mod 10 = 4 then k:=k+a;

   end;

   writeln(k)

   end.

Answer 2

Для решения данных задач на Паскале, вы можете использовать следующий код:

1. Программа для определения максимального нечетного числа:

pascalCopy code
program MaxOddNumber;

var
  n, number, maxOdd: integer;

begin
  maxOdd := -1; // Начальное значение для максимального нечетного числа
  
  writeln('Введите количество чисел:');
  readln(n);
  
  writeln('Введите числа:');
  
  for i := 1 to n do
  begin
    readln(number);
    if (number mod 2 = 1) and (number > maxOdd) then
      maxOdd := number;
  end;
  
  writeln('Максимальное нечетное число: ', maxOdd);
end.

2. Программа для определения суммы чисел, оканчивающихся на 4:

pascalCopy code
program SumNumbersEndingWith4;

var
  n, number, sum: integer;

begin
  sum := 0; // Начальное значение суммы
  
  writeln('Введите количество чисел:');
  readln(n);
  
  writeln('Введите числа:');
  
  for i := 1 to n do
  begin
    readln(number);
    if number mod 10 = 4 then
      sum := sum + number;
  end;
  
  writeln('Сумма чисел, оканчивающихся на 4: ', sum);
end.

Скопируйте каждую из программ в среду программирования Pascal (например, Lazarus или Free Pascal), затем выполните их для получения результатов.