Question

Заменить все элементы массива равные 5 на 1000.Пожалуйста В Pascal ABC

Answer 1

const n=10;

var a:array[1..n] of integer;

i: integer;

begin

write(' Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(9)+1;

write (a[i]:4,' ')

end;

writeln;

write('Преобразованый массив: ');

for i:=1 to n do

begin

if (a[i] = 5) then a[i]:=1000;

write (a[i]:4,' ')

end

end.

Answer 2

Конечно! Вот пример кода на Pascal ABC, который заменяет все элементы массива, равные 5, на значение 1000:

pascalCopy code
program ReplaceArrayElements;

const
  ARRAY_SIZE = 10; // Размер массива

var
  arr: array[1..ARRAY_SIZE] of Integer; // Исходный массив
  i: Integer; // Счетчик

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

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

  // Замена элементов равных 5 на 1000
  for i := 1 to ARRAY_SIZE do
  begin
    if arr[i] = 5 then
      arr[i] := 1000;
  end;

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

  readln;
end.

В этом примере я использовал массив размером 10 элементов, заполненный случайными числами от 0 до 9. Вы можете изменить значение ARRAY_SIZE и способ инициализации массива в соответствии с вашими потребностями.