Подсобите с задачкой по Паскалю...

[MyLastHit]

(Паскаль)
В одномерном массиве вводимом с клавиатуры найти номер минимального элемента заданного массива. Описать данную задачу при помощи функции.


Кому не сложно помогите...завтра зачет...и это задача типовая...

[Loky]

2552343 стучись помогу

[MyLastHit]

не могу достучаться...

[Анатоль]

Чел, ну ты вообще печален. Это задача для школьника 6ого класса.
Вот код.
function findmin(n:longint):longint;
var
min,i,index : longint;
begin
min := M[1];
index := 1;
i := 2 to n do
if min > M[i] then
begin
min := M[i];
index := i;
end;
findmin := index;
end;
функция находит индекс минимального элемента в массива M из n чисел и возвращает его индекс. В качестве параметра передаётся кол-во элементов массива.

[MyLastHit]

Это тело функции? а дальше что должно быть?

[Базиля]

MyLastHit
дальше идет головная част программы, в ней вводи массив и вызывай функцию после ввода массива,дальше вывод мин элемента и конец. Думаю напишешь сам код?

[Анатоль]

begin
read(n);
for i := 1 to n do
read(M[i]);
write(findmin(n));
end.
Ну хоть var попытайся сам написать.

[MyLastHit]

правильно ли я вас понял? и что означает longint?(дословно-длинное целое, а в чем отличие от real, byte, integer?)
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
const n=10;
var m:array[1..n] of integer;
i:integer;
function findmax(n:longint):longint;
var
max,i,index : longint;
begin
max := M[1];
index := 1;
for i := 2 to n do
if max > M[i] then
begin
max := M[i];
index := i;
end;
findmax := index;
end;

begin
Writeln('Vvedite mass');
for i := 1 to n do
read(M[i]);
write(findmax(n));
readln;
readln
end.