Question

Кто с интернет урока 10 класс? Составить программу в Паскале для обработки одномерного массива из 15 чисел. Значения элементов массива задать с клавиатуры самостоятельно. Найти наименьший элемент массива и его номер. В отчет включить программный код и результат работы программы в виде скриншота. Программная реализация обязательна. ​

Answer 1

Ответ:

var

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

min1 : integer;

nomer : integer;

i : integer;

begin

for i := 1 to 15 do

readln(a[i]);

min1 := a[1];

for i := 1 to 15 do

begin

if a[i]<min1 then

begin

min1 := a[i];

nomer := i;

end;

end;

writeln('Наименьший элемент : ', min1);

writeln('Его номер : ', nomer);

end.

Answer 2

Конечно, я могу помочь вам с программой на Pascal для решения этой задачи. Вот пример кода:

pascalCopy code
program MinArrayElement;

const
  SIZE = 15;

var
  arr: array[1..SIZE] of Integer;
  i, minElement, minIndex: Integer;

begin
  writeln('Введите ', SIZE, ' элементов массива:');
  
  for i := 1 to SIZE do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;
  
  minElement := arr[1];
  minIndex := 1;
  
  for i := 2 to SIZE do
  begin
    if arr[i] < minElement then
    begin
      minElement := arr[i];
      minIndex := i;
    end;
  end;
  
  writeln('Наименьший элемент массива: ', minElement);
  writeln('Номер наименьшего элемента в массиве: ', minIndex);
end.

Вы можете скопировать этот код и вставить его в среду разработки Pascal, например, в Lazarus или Turbo Pascal, чтобы выполнить и протестировать программу. Код просит вас ввести 15 элементов массива с клавиатуры, а затем находит наименьший элемент и его номер в массиве. Результат работы программы будет выводиться на экран.

После запуска программы вы можете сделать скриншот результатов и включить его в ваш отчет.