Сделайте, пожалуйста, программу на языке PASCAL ABC. 20 баллов тому, кто напишет!

1. Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с чётными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.
2. Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с нечётными значениями в три раза, а элементы с чётными значениями заменяя на 0.
3. Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, возводя в квадрат все элементы с чётными индексами.
4. Составьте программу, которая заполняет массив а [1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.

Информатика 8 класс Массивы и алгоритмы обработки данных программа на Pascal ABC массив случайные числа увеличение четные элементы увеличение нечетные элементы преобразование массива заполнение массива с клавиатуры замена отрицательных элементов возведение в квадрат элементы информатика 8 класс задачи по программированию Новый

Давайте по шагам разберем, как создать программы на языке PASCAL ABC для каждой из поставленных задач. Я объясню каждую программу отдельно.

1. Программа для увеличения всех элементов с четными значениями на 1:

1. Сначала мы объявим массив и переменные.
2. Затем заполним массив случайными числами от 1 до 10.
3. После этого пройдемся по элементам массива и увеличим четные элементы на 1.

var
  a: array[1..10] of integer;
  i: integer;
begin
  Randomize; // Инициализация генератора случайных чисел
  // Заполнение массива
  for i := 1 to 10 do
    a[i] := Random(10) + 1;

  // Преобразование массива
  for i := 1 to 10 do
    if a[i] mod 2 = 0 then
      a[i] := a[i] + 1; // Увеличиваем четные элементы на 1

  // Вывод массива
  for i := 1 to 10 do
    Write(a[i], ' ');
end.

2. Программа для увеличения нечётных элементов в три раза и замены четных на 0:

1. Аналогично, объявим массив и переменные.
2. Заполним массив случайными числами от 1 до 10.
3. Затем преобразуем массив, увеличивая нечётные элементы в три раза, а четные заменяя на 0.

var
  a: array[1..10] of integer;
  i: integer;
begin
  Randomize;
  for i := 1 to 10 do
    a[i] := Random(10) + 1;

  for i := 1 to 10 do
    if a[i] mod 2 <> 0 then
      a[i] := a[i] * 3 // Увеличиваем нечётные элементы в 3 раза
    else
      a[i] := 0; // Заменяем четные на 0

  for i := 1 to 10 do
    Write(a[i], ' ');
end.

3. Программа для возведения в квадрат всех элементов с чётными индексами:

1. Сначала объявим массив и переменные.
2. Заполним массив случайными числами от 1 до 10.
3. Преобразуем массив, возводя в квадрат элементы с чётными индексами.

var
  a: array[1..10] of integer;
  i: integer;
begin
  Randomize;
  for i := 1 to 10 do
    a[i] := Random(10) + 1;

  for i := 1 to 10 do
    if i mod 2 = 0 then
      a[i] := a[i] * a[i]; // Возводим в квадрат элементы с чётными индексами

  for i := 1 to 10 do
    Write(a[i], ' ');
end.

4. Программа для замены всех отрицательных элементов их модулями:

1. Объявим массив и переменные.
2. Заполним массив с помощью ввода с клавиатуры.
3. Преобразуем массив, заменяя отрицательные элементы на их модули.

var
  a: array[1..10] of integer;
  i: integer;
begin
  for i := 1 to 10 do
  begin
    Write('Введите элемент массива a[', i, ']: ');
    ReadLn(a[i]); // Ввод элементов с клавиатуры
  end;

  for i := 1 to 10 do
    if a[i] < 0 then
      a[i] := -a[i]; // Заменяем отрицательные элементы их модулями

  for i := 1 to 10 do
    Write(a[i], ' ');
end.

Теперь у вас есть четыре программы, каждая из которых решает свою задачу. Вы можете скопировать и вставить их в PASCAL ABC для выполнения и проверки. Удачи!