Навести код функции с именем MinElem для определения минимального элемента массива

@chezz · Регистрация: 13.09.2009

Pascal

M type Mas1=array[1..10] of real; 
var 
M:mas1; 
Min:real; 
I:integer;

Использовать цикл for и только описаны переменные.

@Wassago · 27.12.2009, 17:06

Сообщение от chezz

Навести код функции с именем...

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

@chezz · 27.12.2009, 18:58 **[ТС]**

Сообщение от Wassago

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

Да, я могу сделать процедурой, а надо функцией, можешь помочь?

Добавлено через 2 минуты

Pascal

type Mas1=array[1..10] of real;
var
m:mas1;
min:real;
i:integer;
begin
for i:=1 to 10 do
 m[i]:=random(10);
    if i=1 then
      min:=m[i];
    if m[i]<min then
      min:=m[i];
    write(m[i]:2,' ');
  writeln('Minimum ',min);
  readln;
  readln;
end.

Всегда ноль.. почему?

Добавлено через 26 минут
Правда мне еще и функцию сделать надо.. но все-равно..почему так не работает?

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	27.12.2009, 17:06	2
	Сообщение от chezz Навести код функции с именем... Не пойму...те надо функцию которая ищет минимальный елемент в массиве? 0

Опции темы