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 10 =5 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 MaxOddAndCountEndingIn5;

const
  SIZE = 10;

var
  arr: array[1..SIZE] of integer;
  i, maxOdd, countEndingIn5: integer;

begin
  writeln('Введите ', SIZE, ' элементов массива:');
  
  // Ввод элементов массива
  for i := 1 to SIZE do
  begin
    readln(arr[i]);
  end;
  
  // Инициализируем переменные перед обходом массива
  maxOdd := 0;
  countEndingIn5 := 0;
  
  // Обходим массив и ищем максимальное нечетное число и подсчитываем числа, оканчивающиеся на 5
  for i := 1 to SIZE do
  begin
    if arr[i] mod 2 <> 0 then // Проверяем, является ли элемент нечетным числом
    begin
      if arr[i] > maxOdd then // Если текущий элемент больше максимального нечетного числа, обновляем значение
        maxOdd := arr[i];
    end;
    
    if arr[i] mod 10 = 5 then // Проверяем, оканчивается ли число на 5
      countEndingIn5 := countEndingIn5 + 1;
  end;
  
  // Выводим результаты
  writeln('Максимальный элемент среди нечетных чисел: ', maxOdd);
  writeln('Количество чисел, оканчивающихся на 5: ', countEndingIn5);
  
  readln;
end.

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