Написать функцию, находящую минимальный элемент в массиве

@KOstyankos1 · Регистрация: 22.10.2012

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

Написать функцию, находящую минимальный элемент в массиве.

@Тамила · 15.04.2013, 09:25

Pascal

uses crt;
type arr=array[1..100] of integer;
 
function minimum(a:arr; n:integer): integer;
var
   i,min: integer;
begin
   minimum:=-1;
   if n<1 then exit;
   min:=a[1];
   for i:=1 to n do
    if a[i]<min then min:=a[i];
   minimum:=min;
end;
 
var
   mas:arr;
   i,n:integer;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   writeln;
   for i:=1 to n do
    begin
       mas[i]:=random(50);
       write(mas[i],'  ');
    end;
   writeln;
   writeln('minimum=',minimum(mas,n));
   readkey;
end.

@KOstyankos1 · 15.04.2013, 13:38 **[ТС]**

Спасибо большое)

@KOstyankos1 0 / 0 / 0 Регистрация: 22.10.2012 Сообщений: 40
		1
	Написать функцию, находящую минимальный элемент в массиве 15.04.2013, 08:31. Показов 962. Ответов 2 Метки нет (Все метки) Написать функцию, находящую минимальный элемент в массиве. 0

@KOstyankos1 0 / 0 / 0 Регистрация: 22.10.2012 Сообщений: 40
	15.04.2013, 13:38 [ТС]	3
	Спасибо большое) 0

Опции темы

Написать функцию, находящую минимальный элемент в массиве

Решение