Question

Паскаль 1) В одномерном массиве A(10) найти среди отрицательный элементов максимальный. 2) Дан массив из N элементов. Определить количество элементов, которые являются четными числами.

Answer 1

1.

var

  A: array [1..10] of integer;

  max, i: integer;

begin

    for i:=1 to 10 do                 // заполнение массива

        A[i] := random(100) - 50;

    max := -51;

    for i:=1 to 10 do                 // обработка массива

        if (A[i] < 0) and (A[i] > max) then

        max := A[i];

    writeln(max);

end.

2.

var

  A: array [1..1000] of integer;

  kol, i, N: integer;

begin

    readln(N);

    for i:=1 to N do                 // заполнение массива

        A[i] := random(100) - 50;

    for i:=1 to N do                 // обработка массива

        if A[i] mod 2 = 0 then

        inc(kol);

    writeln(kol);

end.

Answer 2

1. Ниже приведен пример кода на языке программирования Паскаль для решения первой задачи:

pascalCopy code
program MaxNegativeElement;

const
  N = 10;

var
  A: array[1..N] of Integer;
  i, maxNegative: Integer;

begin
  writeln('Введите элементы массива A(10):');
  for i := 1 to N do
  begin
    readln(A[i]);
  end;

  maxNegative := -1; // Предполагаем, что в массиве есть хотя бы один отрицательный элемент
  for i := 1 to N do
  begin
    if (A[i] < 0) and ((maxNegative = -1) or (A[i] > maxNegative)) then
      maxNegative := A[i];
  end;

  if maxNegative <> -1 then
    writeln('Максимальный отрицательный элемент: ', maxNegative)
  else
    writeln('В массиве нет отрицательных элементов.');
end.

2. Ниже приведен пример кода на языке программирования Паскаль для решения второй задачи:

pascalCopy code
program CountEvenElements;

const
  N = 10;

var
  A: array[1..N] of Integer;
  i, countEven: Integer;

begin
  writeln('Введите элементы массива A(10):');
  for i := 1 to N do
  begin
    readln(A[i]);
  end;

  countEven := 0;
  for i := 1 to N do
  begin
    if A[i] mod 2 = 0 then
      countEven := countEven + 1;
  end;

  writeln('Количество четных элементов в массиве: ', countEven);
end.

Обратите внимание, что в обоих примерах размер массива N равен 10, но вы можете изменить его значение в соответствии с вашими потребностями.