минимальный элемента вектора

@egor-suvorov · Регистрация: 28.02.2013

Author24 — интернет-сервис помощи студентам

Напишите подпрограмму определения минимального элемента вектора.

@CodeR · 11.03.2013, 13:43

Если под вектором имеется ввиду одномерный массив, то

Pascal

Type mas=array[1..100] of integer;
Var A:mas;
.....
Function Min(A:mas;n:byte):integer;
Var i,m:integer;
Begin
    m:=A[1];
    For i:=2 to n do
     if A[i]<m then m:=A[i];
    Min:=m;
End;

@egor-suvorov 0 / 0 / 0 Регистрация: 28.02.2013 Сообщений: 8
		1
	минимальный элемента вектора 10.03.2013, 20:50. Показов 1005. Ответов 1 Метки нет (Все метки) Напишите подпрограмму определения минимального элемента вектора. 0

	11.03.2013, 13:43

минимальный элемента вектора

Решение