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.