Question

В одномерном массиве произвольных чисел требуется заменить числом 100 значения всех элементов,удовлетворяющих условию A[i]>=5. Паскаль.

Answer 1

Const
n=10;
var
a:array[1..n]of integer;
i:integer;
           begin 
            for i:=1 to n do   
                read(a[i]);{ввод массива с клавиатуры}
                 for i:=1 to n do 
                    if a[i]>5 then       
                      a[i]:=100;
    writeln;
writeln('Новый массив: ');
             for i:=1 to n do   
               write(a[i]:4);
end.

Answer 2

В Паскале можно выполнить данную операцию с использованием цикла. Вот пример кода для замены всех элементов массива, удовлетворяющих условию A[i] >= 5, на значение 100:

pascalCopy code
program ReplaceValues;

const
  N = 10; // Размер массива
var
  A: array[1..N] of Integer; // Объявление массива
  i: Integer; // Индекс для цикла

begin
  // Заполнение массива произвольными значениями
  for i := 1 to N do
    A[i] := Random(10);

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

  writeln; // Перевод строки

  // Замена значений, удовлетворяющих условию
  for i := 1 to N do
  begin
    if A[i] >= 5 then
      A[i] := 100;
  end;

  // Вывод массива после замены
  writeln('Массив после замены:');
  for i := 1 to N do
    write(A[i], ' ');

  readln;
end.

В этом коде массив A размером N заполняется случайными числами, затем проходится по элементам массива и заменяет значения, удовлетворяющие условию A[i] >= 5, на 100. Наконец, результат выводится на экран.