Question

Массив А размером 10 заполняется случайными целыми числами из интервала (-100,50). Поменять местами первый элемент с последним положительным элементом. паскаль

Answer 1

Ответ:

var A: array [1..10] of integer;

var j,i: integer;

begin

randomize();

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

for i:=1 to 10 do

 begin

 A[i]:=random(151)-100;

 if (A[i]>0) then j:=i;

 write(A[i],' ');

 end;

i:=A[1];

A[1]:=A[j];

A[j]:=i;

writeln(сhr(10),'Результат: ');

for i:=1 to 10 do  write(A[i],' ');

end.

Answer 2

Для решения данной задачи вам потребуется найти последний положительный элемент в массиве А и поменять его местами с первым элементом.

Вот пример кода на языке Pascal (Delphi), который реализует указанное действие:

pascalCopy code
program SwapFirstLastPositive;

const
  N = 10; // Размер массива
  MinValue = -100; // Минимальное значение случайных чисел
  MaxValue = 50; // Максимальное значение случайных чисел

type
  TArray = array[1..N] of Integer; // Определение типа массива

var
  A: TArray;
  i, firstPositiveIndex, lastPositiveIndex, temp: Integer;

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

begin
  Randomize; // Инициализация генератора случайных чисел

  // Заполнение массива случайными числами
  for i := 1 to N do
    A[i] := RandomRange(MinValue, MaxValue);

  // Поиск индекса первого положительного элемента
  firstPositiveIndex := 0;
  for i := 1 to N do
  begin
    if A[i] > 0 then
    begin
      firstPositiveIndex := i;
      Break;
    end;
  end;

  // Поиск индекса последнего положительного элемента
  lastPositiveIndex := 0;
  for i := N downto 1 do
  begin
    if A[i] > 0 then
    begin
      lastPositiveIndex := i;
      Break;
    end;
  end;

  // Если найдены положительные элементы, меняем их местами
  if (firstPositiveIndex <> 0) and (lastPositiveIndex <> 0) then
  begin
    temp := A[firstPositiveIndex];
    A[firstPositiveIndex] := A[lastPositiveIndex];
    A[lastPositiveIndex] := temp;
  end;

  // Вывод полученного массива
  for i := 1 to N do
    WriteLn(A[i]);

end.

Этот код создает массив А размером 10, заполняет его случайными целыми числами из интервала (-100, 50), находит первый положительный элемент и последний положительный элемент, а затем меняет их местами. Наконец, выводится полученный массив на экран.