Question

Пользователь вводит 12 чисел. Найти наименьшее число среди элементов с третьего по десятый включительно. На языке паскаль​

Answer 1

program v1;

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

min,i:integer;

begin

 for i:=1 to 12 do

   readln(a[i]);

 for i:=1 to 12 do write(a[i]:3); writeln;

 min:=a[3];

 for i:=1 to 12 do if (a[i]<min) and (i>2) and (i<11) then min:=a[i];

 writeln('min=', min);

end.

Answer 2

Вот пример программы на языке Pascal, которая позволяет пользователю ввести 12 чисел и затем находит наименьшее число среди элементов с третьего по десятый включительно:

pascalCopy code
program FindMinimum;
var
  numbers: array[1..12] of integer;
  i, minNumber: integer;
begin
  // Вводим 12 чисел
  writeln('Введите 12 чисел:');
  for i := 1 to 12 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;

  // Находим минимальное число среди элементов с третьего по десятый
  minNumber := numbers[3]; // Предполагаем, что минимальное число это третье
  for i := 4 to 10 do // Перебираем элементы с четвёртого по десятый
  begin
    if numbers[i] < minNumber then
      minNumber := numbers[i]; // Если находим меньшее число, обновляем minNumber
  end;

  // Выводим результат
  writeln('Наименьшее число среди элементов с третьего по десятый: ', minNumber);

  readln;
end.

Эта программа сначала запрашивает у пользователя ввод 12 чисел, затем находит наименьшее число среди элементов с третьего по десятый и выводит его на экран.