Привіт! Ось переклад коду 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);
// Виводимо масив на екран
WriteLn(arr[i]);
// Знаходимо найменший елемент масиву
mini := 101;
if arr[i] < mini then
mini := arr[i];
// Виводимо найменший елемент на екран
WriteLn('Найменший елемент: ', mini);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Привіт! Ось переклад коду 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.