Question

Нужно сделать в Лазарус Дано масив, який складається з 10 дійсних чисел. Скласти програму, яка знаходить найменший елемент цього масиву.

Answer 1

Привіт! Ось переклад коду Python на Pascal:

uses Math;

var

 arr: array[1..10] of Real;

 i: Integer;

 mini: Real;

begin

 Randomize;

 // Генеруємо масив випадкових дійсних чисел

 for i := 1 to 10 do

   arr[i] := RandomRange(1, 100);

 // Виводимо масив на екран

 for i := 1 to 10 do

   WriteLn(arr[i]);

 // Знаходимо найменший елемент масиву

 mini := 101;

 for i := 1 to 10 do

   if arr[i] < mini then

     mini := arr[i];

 // Виводимо найменший елемент на екран

 WriteLn('Найменший елемент: ', mini);

end.

Answer 2

Звісно, я можу допомогти вам написати програму на Lazarus (Object Pascal) для знаходження найменшого елементу в масиві з 10 дійсних чисел. Ось приклад коду:

program FindMinElement;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  myArray: array[1..10] of Real; // Масив з 10 дійсних чисел
  i: Integer;
  minElement: Real;

begin
  // Заповнення масиву
  writeln('Введіть 10 дійсних чисел:');
  for i := 1 to 10 do
  begin
    write('Елемент ', i, ': ');
    readln(myArray[i]);
  end;

// Пошук найменшого елементу в масиві
  minElement := myArray[1]; // Припускаємо, що перший елемент є найменшим

for i := 2 to 10 do
  begin
    if myArray[i] < minElement then
      minElement := myArray[i];
  end;

// Виведення результату
  writeln('Найменший елемент в масиві: ', minElement);

// Затримка перед завершенням програми (щоб ви могли побачити результат)
  writeln('Натисніть Enter для завершення...');
  readln;
end.

Основна ідея полягає в тому, що програма заповнює масив користувачем, а потім шукає найменший елемент у цьому масиві, порівнюючи його з кожним іншим елементом. Результат виводиться на екрані.

Не забудьте зберегти цей код у файлі з розширенням `.pas` і скомпілювати його за допомогою Lazarus.