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

Конечно, вот пример решения задачи на языке Pascal:

pascalCopy code
program ArrayOperations;

const
  N = 10;

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

begin
  { Заполнение массива случайными числами }
  randomize; // Инициализация генератора случайных чисел
  for i := 1 to N do
    arr[i] := random(100); // Генерация случайных чисел от 0 до 99

  { Инициализация переменных перед анализом массива }
  maxOdd := -1; // Предполагаем, что все числа массива неотрицательные
  countEndingIn5 := 0;

  { Анализ массива }
  for i := 1 to N do
  begin
    if arr[i] mod 2 = 1 then // Проверка на нечетность
    begin
      if arr[i] > maxOdd then
        maxOdd := arr[i];
    end;

    if arr[i] mod 10 = 5 then // Проверка на оканчивание на 5
      countEndingIn5 := countEndingIn5 + 1;
  end;

  { Вывод результатов }
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  writeln;
  writeln('Максимальное нечетное число:', maxOdd);
  writeln('Количество чисел, оканчивающихся на 5:', countEndingIn5);

end.

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