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.