Question

Написать программу которая в одномерном массиве , заданным вводом данных с клавиатуры заменяет все числа в массиве заданым числом. Программу в Паскаль очень срочно!!!

Answer 1

const
    handsfree = false;
    nmax = 100;
    random_min = -50;
    random_max = 50;

var
    a: array[1..nmax] of real;
    i, n, j: integer;
    temp: real;

begin
    {ввод массива}
    if handsfree then
        n := random(nmax - 5) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(random_max - random_min) + random_min;
            write(a[i], ' ');
        end
        else
            readln(a[i]);
    end;
    writeln();
    
    {изменение элементов}
    writeln('Число для замены =');
    read(temp);
    writeln('Новые значения:');
    for i := 1 to n do
    begin
        a[i] := temp;
        write(a[i], ' ');
    end;
end.

Answer 2

Конечно, я могу помочь вам написать программу на Паскале, которая заменяет все числа в одномерном массиве заданным числом. Вот пример такой программы:

program ReplaceArrayElements;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of Integer;
  n, i, numToReplace, replacementNum: Integer;

begin
  // Ввод размера массива
  Write('Введите размер массива (не более ', MAX_SIZE, '): ');
  ReadLn(n);

// Ввод элементов массива
  WriteLn('Введите элементы массива:');
  for i := 1 to n do
  begin
    Write('Элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

// Ввод числа, которым нужно заменить элементы массива
  Write('Введите число, которым нужно заменить элементы массива: ');
  ReadLn(numToReplace);

// Замена элементов массива
  replacementNum := 0;
  for i := 1 to n do
  begin
    if arr[i] = numToReplace then
    begin
      arr[i] := replacementNum;
    end;
  end;

// Вывод измененного массива
  WriteLn('Измененный массив:');
  for i := 1 to n do
  begin
    WriteLn(arr[i]);
  end;
end.

В этой программе мы сначала запрашиваем у пользователя размер массива и элементы массива с помощью оператора `ReadLn`. Затем мы запрашиваем число, которым нужно заменить элементы массива. После этого мы проходим по всем элементам массива и, если элемент равен числу, которым нужно заменить, заменяем его на заданное число.

Обратите внимание, что в этой программе предполагается, что пользователь будет вводить только целые числа.

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.