Question

Составьте программу, которая формирует массив из 15 случайных целых чисел от -20 до 20 и четные числа делит на 2, а нечетные умножает на 3 PascalABC

Answer 1

Program n1;

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

i: integer;

begin

write('исходный массив: ');

for i:=1 to 15 do begin

a[i]:=random(41)-20;

write(a[i],' ');

end;

writeln;

write('полученный массив: ');

for i:=1 to 15 do begin

if a[i] mod 2=0 then a[i]:=trunc(a[i]/2) else a[i]:=a[i]*3;

write(a[i],' ');

end;

end.

Answer 2

Для создания программы на PascalABC, которая формирует массив из 15 случайных целых чисел от -20 до 20, и преобразует его согласно условию (четные делит на 2, а нечетные умножает на 3), можно использовать следующий код:

pascalCopy code
program ArrayTransformation;

const
  ARRAY_SIZE = 15;
  MIN_VALUE = -20;
  MAX_VALUE = 20;

var
  arr: array[1..ARRAY_SIZE] of Integer;
  i: Integer;

function IsEven(num: Integer): Boolean;
begin
  Result := num mod 2 = 0;
end;

begin
  Randomize;

  // Заполнение массива случайными числами от MIN_VALUE до MAX_VALUE
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;

  // Преобразование массива согласно условию
  for i := 1 to ARRAY_SIZE do
  begin
    if IsEven(arr[i]) then
      arr[i] := arr[i] div 2
    else
      arr[i] := arr[i] * 3;
  end;

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to ARRAY_SIZE do
    write(arr[i], ' ');

  // Вывод преобразованного массива
  writeln;
  writeln('Преобразованный массив:');
  for i := 1 to ARRAY_SIZE do
    write(arr[i], ' ');

  readln;
end.

Программа создаст массив из 15 случайных чисел от -20 до 20, преобразует его согласно указанным правилам и выведет на экран исходный и преобразованный массивы.