Question

Написать программы в Паскале• Дан массив из N вещественных чисел. Поменять местами последний и минимальный элементы массива. • Дан массив из N целых чисел. Найти номер первого элемента, который равен количеству элементов, кратных 3.

Answer 1

Program task1;

const
  n = 10;

var
  a :array [1..n] of real;
  i, j :integer;
  min, k :real;

begin

  for i:= 1 to n do
    readln(a[i]);
 
  min:= a[1];
  for i:= 1 to n do
    if a[i] < min then
    begin
      min:= a[i];
      j:= i;
    end;
   
  k:= a[n];
  a[n]:= a[j];
  a[j]:= k;

end.

program task2;

const
  n = 10;

var
  a :array [1..n] of integer;
  i, j, kol :integer;

begin

  for i:= 1 to n do
    readln(a[i]);
 
  kol:= 0;
  for i:= 1 to n do
    if a[i] mod 3 = 0 then
      inc(kol);
  for i:= 1 to n do
    if a[i] = kol then
    begin
      j:= i;
      break;
    end;
  writeln(j);

end.

Answer 2

Решение задачи на Паскале

Для решения задачи на Паскале, давайте начнем с написания программы для каждой из поставленных задач.

1. Поменять местами последний и минимальный элементы массива из N вещественных чисел:

program SwapMinAndLast;
var
  arr: array of Real;
  i, minIndex, n: Integer;
  minValue: Real;
begin
  // Ввод размера массива
  Write('Введите размер массива: ');
  ReadLn(n);
  
  // Инициализация массива
  SetLength(arr, n);
  
  // Ввод элементов массива
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;
  
  // Поиск индекса минимального элемента
  minIndex := 0;
  minValue := arr[0];
  for i := 1 to n - 1 do
  begin
    if arr[i] < minValue then
    begin
      minIndex := i;
      minValue := arr[i];
    end;
  end;
  
  // Обмен значениями
  minValue := arr[minIndex];
  arr[minIndex] := arr[n - 1];
  arr[n - 1] := minValue;
  
  // Вывод измененного массива
  WriteLn('Измененный массив:');
  for i := 0 to n - 1 do
    WriteLn(arr[i]);
end.

2. Найти номер первого элемента, который равен количеству элементов, кратных 3:

program FindFirstMultipleOf3;
var
  arr: array of Integer;
  i, n: Integer;
begin
  // Ввод размера массива
  Write('Введите размер массива: ');
  ReadLn(n);
  
  // Инициализация массива
  SetLength(arr, n);
  
  // Ввод элементов массива
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;
  
  // Поиск номера первого элемента, равного количеству элементов, кратных 3
  for i := 0 to n - 1 do
  begin
    if arr[i] = n div 3 then
    begin
      WriteLn('Номер первого элемента, равного количеству элементов, кратных 3: ', i);
      Break;
    end;
  end;
end.

Эти программы позволят выполнить указанные задачи для массивов вещественных и целых чисел соответственно.