Question

Дан массив из 10 целых чисел, заполняемый с клавиатуры. Найти наибольшее значение элемента массива и его номер. Дан массив из 10 целых чисел. Поменять местами набольший и наименьший элементы массива.Дан массив из 24 целых чисел. Заменить все элементы между максимальным и минимальным, кроме их самих, на 0.Решите пожалуйста все эти программы на языке Паскаля, очень надо

Answer 1

Ответ:

begin

 var n: array of integer;

 setlength(n,11);

 writeln('Введите содержимое массива:');

 for var l:= 1 to n.high do read(n[l]);

 writeln('Наибольшее значение: ',n.max,' его номер: ',n.lastindexmax);

end.

begin

 var n:= ArrRandomInteger(10,1,99);

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

 var A:=n[n.High];

 n[n.High]:=n[n.Low];

 n[n.Low]:=A;

 writeln('Полученный массив: ',n);

end.

begin

 var n:= ArrRandomInteger(24,1,99);

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

 for var l:=n.Low+1 to n.High-1 do n[l]:=0;

 writeln('Полученный массив: ',n);

end.

Answer 2

Конечно, вот решения задач на языке Pascal:

1. Найти наибольшее значение элемента массива и его номер:

pascalCopy code
program FindMaxValueAndIndex;
var
  arr: array[1..10] of integer;
  i, maxVal, maxIdx: integer;
begin
  // Ввод массива с клавиатуры
  for i := 1 to 10 do
  begin
    write('Введите элемент массива arr[', i, ']: ');
    readln(arr[i]);
  end;

  // Находим наибольший элемент и его номер
  maxVal := arr[1];
  maxIdx := 1;
  for i := 2 to 10 do
  begin
    if arr[i] > maxVal then
    begin
      maxVal := arr[i];
      maxIdx := i;
    end;
  end;

  writeln('Наибольший элемент массива: ', maxVal);
  writeln('Номер наибольшего элемента в массиве: ', maxIdx);
end.

2. Поменять местами наибольший и наименьший элементы массива:

pascalCopy code
program SwapMinMax;
var
  arr: array[1..10] of integer;
  i, minIdx, maxIdx, temp: integer;
begin
  // Ввод массива с клавиатуры
  for i := 1 to 10 do
  begin
    write('Введите элемент массива arr[', i, ']: ');
    readln(arr[i]);
  end;

  // Находим индексы наименьшего и наибольшего элементов
  minIdx := 1;
  maxIdx := 1;
  for i := 2 to 10 do
  begin
    if arr[i] < arr[minIdx] then
      minIdx := i
    else if arr[i] > arr[maxIdx] then
      maxIdx := i;
  end;

  // Меняем местами наименьший и наибольший элементы
  temp := arr[minIdx];
  arr[minIdx] := arr[maxIdx];
  arr[maxIdx] := temp;

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

3. Заменить все элементы между максимальным и минимальным, кроме их самих, на 0:

pascalCopy code
program ReplaceBetweenMinMax;
var
  arr: array[1..24] of integer;
  i, minIdx, maxIdx, temp: integer;
begin
  // Ввод массива с клавиатуры
  for i := 1 to 24 do
  begin
    write('Введите элемент массива arr[', i, ']: ');
    readln(arr[i]);
  end;

  // Находим индексы наименьшего и наибольшего элементов
  minIdx := 1;
  maxIdx := 1;
  for i := 2 to 24 do
  begin
    if arr[i] < arr[minIdx] then
      minIdx := i
    else if arr[i] > arr[maxIdx] then
      maxIdx := i;
  end;

  // Заменяем элементы между минимальным и максимальным на 0
  if minIdx < maxIdx then
  begin
    for i := minIdx + 1 to maxIdx - 1 do
      arr[i] := 0;
  end
  else
  begin
    for i := maxIdx + 1 to minIdx - 1 do
      arr[i] := 0;
  end;

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

Эти программы выполняют требуемые задачи на языке Pascal.