Question

Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличие все элементы с нечетными значениями в 3 раза, а элементы с четными значениями заменяя на 0 (Паскаль)

Answer 1

Программа на языке Паскаль, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, а затем преобразовывает его, увеличивая все элементы с нечетными значениями в 3 раза, а элементы с четными значениями заменяет на 0:

program ArrayTransformation;
var
  a: array[1..10] of integer;
  i: integer;
begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to 10 do
  begin
    a[i] := Random(10) + 1;
    writeln('a[', i, '] = ', a[i]);
  end;
  
  writeln('--- Преобразование массива ---');
  
  // Преобразование массива
  for i := 1 to 10 do
  begin
    if a[i] mod 2 = 1 then // Если значение нечетное
      a[i] := a[i] * 3
    else // Если значение четное
      a[i] := 0;
      
    writeln('a[', i, '] = ', a[i]);
  end;
end.

В этой программе используется генератор случайных чисел Randomize для заполнения массива a[1..10] случайными целыми числами в диапазоне от 1 до 10. Затем происходит преобразование массива: все элементы с нечетными значениями увеличиваются в 3 раза, а элементы с четными значениями заменяются на 0. Выводится исходный и преобразованный массив.