Question

Решить задачу по информатике, паскаль (массив) В массиве 10 элементов определить максимальный элемент среди нечетных чисел и количество чисел оканчивающихся на 5. С объяснениями.

Answer 1

program mass_maxnech_kolkrat5;

uses crt;

const n=10;

var

i,max,kol:integer;

a:array[1..n] of integer;

begin

max:=1;

kol:=0;

for i:=1 to n do

begin

a[i]:= random(101);

write(a[i],' ');

if a[i] mod 5 =0 then kol:=kol+1;

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

end;

writeln;

writeln('Максимальный нечетный элемент=',max);

writeln('Количество чисел, кратных 5=',kol);

readln;

end.

Answer 2

Конечно, я могу помочь вам с решением задачи на Паскале. Вот пример кода, который решает задачу:

pascalCopy code
program MaxOddAndCountFive;
var
  arr: array[1..10] of integer;
  i, maxOdd, countFive: integer;
begin
  maxOdd := -1; // Инициализируем максимальное нечетное число отрицательным значением, чтобы учесть случай отсутствия нечетных чисел
  countFive := 0; // Инициализируем счетчик чисел, оканчивающихся на 5, нулем
  
  // Заполняем массив значениями
  for i := 1 to 10 do
  begin
    write('Введите элемент массива ', i, ': ');
    readln(arr[i]);
  end;
  
  // Поиск максимального нечетного числа и подсчет чисел, оканчивающихся на 5
  for i := 1 to 10 do
  begin
    if (arr[i] mod 2 <> 0) and (arr[i] > maxOdd) then
      maxOdd := arr[i];
      
    if arr[i] mod 10 = 5 then
      countFive := countFive + 1;
  end;
  
  // Вывод результатов
  writeln('Максимальное нечетное число: ', maxOdd);
  writeln('Количество чисел, оканчивающихся на 5: ', countFive);
  
  readln;
end.

В этом коде используется массив arr, состоящий из 10 целочисленных элементов. С помощью цикла for заполняем массив значениями, вводимыми пользователем.

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

• Если элемент нечетный и больше текущего значения maxOdd, то мы обновляем maxOdd этим элементом.
• Если элемент оканчивается на 5 (остаток от деления на 10 равен 5), мы увеличиваем счетчик countFive на 1.

В конце программы выводятся найденные значения: максимальное нечетное число и количество чисел, оканчивающихся на 5.

Пожалуйста, учтите, что приведенный выше код - всего лишь пример. Вы можете адаптировать его под свои нужды и требования.