Question

Написать задачи на паскале для 10 класса 1. Дан массив, содержащий неотрицательные целые числа, не превышающие 10 000. В массиве присутствуют чётные и нечётные числа. Необходимо вывести: - минимальный чётный элемент, если количество чётных элементов не больше, чем нечётных; - минимальный нечётный элемент, если количество нечётных элементов меньше, чем чётных. Например, для массива из шести элементов, равных соответственно 4, 6, 12, 17, 9, 8, ответом будет 9 — наименьшее нечётное число, поскольку нечётных чисел в этом массиве меньше. 2. Задать случайным образом N элементов числового массива. Удалить первый отрицательный элемент, если таковой имеется, если нет, то вывести соответствующее сообщение. 3. Задать случайным образом N элементов числового массива. Вставить перед каждым четным элементом число, равное квадрату номера этого числа.

Answer 1

Ответ:

ответ был удалён

Объяснение:

Answer 2

Конечно, вот задачи на языке Паскаль для 10-го класса:

1. Задача о минимальных элементах массива:

pascalCopy code
program MinEvenOrOdd;

const
  MAX_SIZE = 100;
  
var
  arr: array[1..MAX_SIZE] of integer;
  n, i, minEven, minOdd: integer;
  evenCount, oddCount: integer;

begin
  write('Введите количество элементов массива (не более ', MAX_SIZE, '): ');
  readln(n);
  
  // Заполняем массив случайными числами
  for i := 1 to n do
    arr[i] := random(10001); // Генерируем случайное число от 0 до 10000
  
  // Инициализируем переменные для минимальных чётного и нечётного элементов
  minEven := 10001; // Максимальное значение для нечётных чисел
  minOdd := 10001;  // Максимальное значение для чётных чисел
  
  // Считаем количество чётных и нечётных элементов массива
  evenCount := 0;
  oddCount := 0;
  for i := 1 to n do
  begin
    if arr[i] mod 2 = 0 then
    begin
      evenCount := evenCount + 1;
      if arr[i] < minEven then
        minEven := arr[i];
    end
    else
    begin
      oddCount := oddCount + 1;
      if arr[i] < minOdd then
        minOdd := arr[i];
    end;
  end;
  
  // Выводим результаты
  writeln('Массив:');
  for i := 1 to n do
    write(arr[i], ' ');
  writeln;
  
  if evenCount <= oddCount then
    writeln('Минимальный чётный элемент: ', minEven)
  else
    writeln('Минимальный нечётный элемент: ', minOdd);
end.

2. Задача об удалении первого отрицательного элемента из массива:

pascalCopy code
program RemoveFirstNegative;

const
  MAX_SIZE = 100;
  
var
  arr: array[1..MAX_SIZE] of integer;
  n, i, firstNegativeIndex: integer;
  negativeFound: boolean;

begin
  write('Введите количество элементов массива (не более ', MAX_SIZE, '): ');
  readln(n);
  
  // Заполняем массив случайными числами
  for i := 1 to n do
    arr[i] := random(201) - 100; // Генерируем случайное число от -100 до 100
  
  // Ищем первый отрицательный элемент
  negativeFound := false;
  for i := 1 to n do
  begin
    if arr[i] < 0 then
    begin
      negativeFound := true;
      firstNegativeIndex := i;
      break;
    end;
  end;
  
  // Удаляем первый отрицательный элемент и сдвигаем остальные элементы влево
  if negativeFound then
  begin
    for i := firstNegativeIndex to n - 1 do
      arr[i] := arr[i + 1];
    n := n - 1; // Уменьшаем размер массива
    writeln('Массив после удаления первого отрицательного элемента:');
    for i := 1 to n do
      write(arr[i], ' ');
    writeln;
  end
  else
    writeln('В массиве нет отрицательных элементов.');
end.

3. Задача о вставке числа перед каждым чётным элементом массива:

pascalCopy code
program InsertBeforeEven;

const
  MAX_SIZE = 100;
  
var
  arr: array[1..MAX_SIZE] of integer;
  n, i, j: integer;

begin
  write('Введите количество элементов массива (не более ', MAX_SIZE, '): ');
  readln(n);
  
  // Заполняем массив случайными числами
  for i := 1 to n do
    arr[i] := random(101); // Генерируем случайное число от 0 до 100
  
  writeln('Исходный массив:');
  for i := 1 to n do
    write(arr[i], ' ');
  writeln;
  
  // Вставляем число перед каждым чётным элементом массива
  j := 1; // Начальный индекс для новых элементов
  for i := 1 to n do
  begin
    if arr[i] mod 2 = 0 then
    begin
      for j := n downto i + 1 do
        arr[j] := arr[j - 1];
      arr[i] := i * i; // Вставляем квадрат номера перед чётным элементом
      n := n + 1; // Увеличиваем размер массива
      i := i + 1; // Пропускаем вставленный элемент, чтобы не вставлять его снова
    end;
  end;
  
  writeln('Массив после вставки:');
  for i := 1 to n do
    write(arr[i], ' ');
  writeln;
end.

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