Question

Здравствуйте, ребята. Помогите решить задачу на Паскале: Найти количество нечетных элементов массива и уменьшить каждый элемент начального массива на это количество. Начальный и преобразованный массивы отпечатать.

Answer 1

const n=10;

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

i,k: integer;

begin

for i:=1 to n do

begin

a[i]:=random(21)-10;

write (a[i]:3,' ');

if a[i] mod 2 <> 0 then k:=k+1

end;

writeln;

for i:=1 to n do

begin

a[i]:=a[i]-k;

write (a[i]:3,' ')

end

end.

Answer 2

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

pascalCopy code
program OddElementsSubtraction;

const
  MAX_SIZE = 100; // Максимальный размер массива, можно изменить по своему усмотрению

type
  IntArray = array[1..MAX_SIZE] of Integer;

var
  arr: IntArray;
  n, i, oddCount: Integer;

procedure ReadArray(var a: IntArray; n: Integer);
var
  i: Integer;
begin
  for i := 1 to n do
  begin
    Write('Введите элемент массива arr[', i, ']: ');
    Readln(a[i]);
  end;
end;

procedure PrintArray(const a: IntArray; n: Integer);
var
  i: Integer;
begin
  Write('Массив: ');
  for i := 1 to n do
    Write(a[i], ' ');
  Writeln;
end;

function CountOddElements(const a: IntArray; n: Integer): Integer;
var
  i, count: Integer;
begin
  count := 0;
  for i := 1 to n do
  begin
    if a[i] mod 2 <> 0 then
      Inc(count);
  end;
  Result := count;
end;

procedure SubtractOddElementCount(var a: IntArray; n: Integer; oddCount: Integer);
var
  i: Integer;
begin
  for i := 1 to n do
  begin
    if a[i] mod 2 <> 0 then
      Dec(a[i], oddCount);
  end;
end;

begin
  Write('Введите размер массива (не более ', MAX_SIZE, '): ');
  Readln(n);

  if (n <= 0) or (n > MAX_SIZE) then
  begin
    Writeln('Некорректный размер массива.');
    Exit;
  end;

  ReadArray(arr, n);

  Writeln('Исходный массив:');
  PrintArray(arr, n);

  oddCount := CountOddElements(arr, n);

  SubtractOddElementCount(arr, n, oddCount);

  Writeln('Преобразованный массив:');
  PrintArray(arr, n);
end.

При запуске программы вы сможете ввести размер массива и его элементы. Затем программа найдет количество нечетных элементов в массиве, уменьшит каждый элемент начального массива на это количество и выведет на экран начальный и преобразованный массивы.

Обратите внимание, что в коде используется константа MAX_SIZE, которую вы можете изменить, чтобы задать максимальный размер массива по своему усмотрению.