Question

Заполните массив из n элементов и в массиве найдите сумму нечетных элементов массива и максимальный элемент в нем Паскаль!!!!

Answer 1

                                     PascalABC.NET

begin

 var mas := ReadArrInteger('Введите массив:', ReadInteger('N ='));

 Println('Сумма нечетных элементов:',mas.Where(x -> x.IsOdd).Sum);

 print('Максимальный элемент:',mas.Max)

end.

Answer 2

Конечно! Вот пример кода на языке Паскаль для заполнения массива из n элементов, а также нахождения суммы нечетных элементов и максимального элемента в массиве:

pascalCopy code
program FindSumAndMax;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of Integer;
  n, i, sum, maxElement: Integer;

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

  // Проверка на допустимый размер массива
  if (n < 1) or (n > MAX_SIZE) then
  begin
    WriteLn('Ошибка! Недопустимый размер массива.');
    Exit;
  end;

  // Заполнение массива
  WriteLn('Введите элементы массива:');
  for i := 1 to n do
  begin
    Write('Элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

  // Нахождение суммы нечетных элементов и максимального элемента
  sum := 0;
  maxElement := arr[1]; // Предполагаем, что первый элемент - максимальный

  for i := 1 to n do
  begin
    if arr[i] mod 2 = 1 then // Если элемент нечетный
      sum := sum + arr[i];

    if arr[i] > maxElement then
      maxElement := arr[i];
  end;

  // Вывод результатов
  WriteLn('Сумма нечетных элементов массива: ', sum);
  WriteLn('Максимальный элемент массива: ', maxElement);
end.

Пожалуйста, убедитесь, что вы используете компилятор Паскаля, который поддерживает синтаксис и функции, представленные в этом коде.