Question

Дан массив заменить все его элементы ., большие заданного N, этим числом. паскаль ​

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 N, i: integer;

begin

 write('N = ');  readln(N);

 // заполняем массив случайными числами от 0 до 100

 for i := 1 to 10 do arr[i] := random(100);

 writeln(arr);

 for i := 1 to 10 do

   if arr[i] > N then arr[i] := N;

 writeln(arr);

end.

Результат:

N = 50

[35,24,57,10,99,50,44,67,93,89]

[35,24,50,10,50,50,44,50,50,50]

Answer 2

В Паскале можно создать массив и заменить все его элементы, большие заданного числа N, следующим образом:

pascalCopy code
program ReplaceElements;

const
  N = 10;  // Ваше заданное число N

var
  arr: array [1..10] of Integer;  // Массив целых чисел (измените размер массива по необходимости)
  i: Integer;

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

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

  writeln;

  // Замена элементов, больших N
  for i := 1 to 10 do
  begin
    if arr[i] > N then
      arr[i] := N;
  end;

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

  readln;
end.

В этом примере программа создает массив arr и заменяет все его элементы, большие заданного числа N, этим числом N. Размер массива и начальные значения элементов можно настроить под свои потребности. Программа также выводит исходный массив и массив после замены элементов.