Question

Задача на массивы в паскале занести массив из 12 элементов ряд случайных чисел из [-7:7] кроме 0

Answer 1

//Компилятор мне выдаёт ошибку, но покажи учителю хоть что-то, чем совсем ничего.

Program One;

var

 i: integer;

 a: integer;

 mas: array [-7..7] of integer;

begin

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

  for i:=-7 to 7 do

   begin

    a[i]:= random(-7,7);

    write(a[i]:7);

   end;

  writeln();

  for i:=-7 to 7 do

   if a[i]=7 then a[i]:=1;

  writeln('Преобразованный массив:');

   for i:=-7 to 7 do

    write(a[i]:7);

end.

Answer 2

Вот пример решения задачи на массивы в Pascal, который заносит в массив из 12 элементов случайные числа из диапазона [-7:7], исключая число 0:

pascalCopy code
program RandomArray;

var
  arr: array[1..12] of Integer;
  i, num: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

  for i := 1 to 12 do
  begin
    repeat
      num := Random(15) - 7; // Генерация случайного числа из [-7:7]
    until num <> 0; // Повторять генерацию, пока не будет получено число отличное от 0
    arr[i] := num; // Занесение числа в массив
  end;

  // Вывод массива на экран
  for i := 1 to 12 do
    WriteLn(arr[i]);

  ReadLn;
end.

В этом примере мы используем генератор случайных чисел Randomize для инициализации генерации случайных чисел в процедуре Random. Затем мы используем цикл for для заполнения массива arr случайными числами из диапазона [-7:7]. Мы проверяем каждое сгенерированное число и повторяем генерацию, если получено число 0. Когда получено ненулевое число, мы заносим его в соответствующий элемент массива. Наконец, мы выводим значения массива на экран.

Обратите внимание, что диапазон случайных чисел задается как Random(15) - 7, где Random(15) генерирует числа от 0 до 14, а затем мы вычитаем 7, чтобы получить диапазон [-7:7].