Помогите, пожалуйста, написать программу в Паскаль, с помощью функции. дан вектор n (1 меньше =n меньше =100).Найти минимальный элемент, который не превышает целое число m.
Помогите, пожалуйста, написать программу в Паскаль, с помощью функции.
дан вектор n (1<=n<=100).Найти минимальный элемент, который не превышает целое число m.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1088
const
nn=100;
type
Vector=array[1..nn] of integer;
function Min(a:Vector; n:integer):integer;
var
i,m:integer;
begin
m:=a[1];
for i:=2 to n do
if a[i]
Не нашли ответ?
Похожие вопросы