Question

СРОЧНО!!!! Создать массив, заполненный случайным образом 20 целыми числами в диапазоне от -30 до 20, найти номер минимального элемента и заменить им все нечетные элементы. паскаль

Answer 1

Заменить нечётные элементы по значению

program  raf105;

var  

 a:array[1..20] of integer;

 i,min: integer;

begin

min:= 10000;

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

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (a[i] mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.

Заменить нечётные элементы по индексу

program  raf105;

var  

 a:array[1..20] of integer;

 i,min: integer;

begin

min:= 10000;

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

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (i mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.

Язык PascalABC

Answer 2

Хотя я не могу выполнять код напрямую, я могу предоставить вам алгоритм на языке Pascal, который создаст массив, найдет номер минимального элемента и заменит им все нечетные элементы. Вам нужно будет вставить этот алгоритм в свою среду разработки на Pascal и выполнить его там.

pascalCopy code
program ReplaceWithMin;

const
  N = 20; // Размер массива

var
  arr: array[1..N] of Integer;
  i, minIndex, minValue: Integer;

// Функция для генерации случайного числа в заданном диапазоне
function RandomNumberInRange(min, max: Integer): Integer;
begin
  Randomize; // Инициализация генератора случайных чисел
  Result := Random(max - min + 1) + min;
end;

begin
  // Заполнение массива случайными числами от -30 до 20
  for i := 1 to N do
    arr[i] := RandomNumberInRange(-30, 20);

  // Нахождение минимального элемента и его индекса
  minIndex := 1;
  minValue := arr[1];
  for i := 2 to N do
  begin
    if arr[i] < minValue then
    begin
      minIndex := i;
      minValue := arr[i];
    end;
  end;

  // Замена нечетных элементов минимальным элементом
  for i := 1 to N do
  begin
    if arr[i] mod 2 <> 0 then
      arr[i] := minValue;
  end;

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

  writeln; // Перевод на новую строку

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

  readln;
end.

Этот код создаст массив из 20 случайных целых чисел в диапазоне от -30 до 20, найдет минимальный элемент и заменит им все нечетные элементы.