Question

составьте программу которая заполняет массив b 1..8 случайными целыми числами в диапозоне от 1 до 10 затем изменяет знак элементов с чётными индексами на противоположный. выведите на экран исходный и полученный массивы

Answer 1

var
  b: array[1..8] of integer;
  i: byte;
begin
  randomize;
  writeln('Исходный массив.');
  for i := 1 to 8 do
  begin
    b[i] := random(9)+1;
    write(b[i], ' ');
  end;
  writeln;
  writeln('Измененый массив.');
  for i := 1 to 8 do
  begin
    if i mod 2 = 0 then b[i] := -b[i];
    write(b[i], ' ');
  end;
  writeln;
end.