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;
for i:=1 to n do
   write(a[i]:4);
end.

Answer 2

Конечно! Вот пример решения задачи на языке Паскаль:

pascalCopy code
program ReplaceValues;
const
  SIZE = 10; // размер массива
var
  arr: array[1..SIZE] of Integer; // одномерный массив
  i: Integer; // переменная для цикла

begin
  // Инициализация массива произвольными числами
  for i := 1 to SIZE do
    arr[i] := Random(10); // Здесь Random(10) используется для генерации случайных чисел от 0 до 9

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

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

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

  readln;
end.

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