Матрицы Опции

[Shaman]

Для матрицы А (4 строки , 5 столбцов) определить сумму элементов строки, содержащей минимальный элемент матрицы. Для определения номера строки, содержащей минимальный элемент, использовать функцию

program matrisa;
var
a:array[1..4,1..5] of Integer; i,j:Byte; sum,min,Nstr:integer;
begin
for i:=1 to 4 do
for j:=1 to 5 do
begin
Write(i,j,': '); readln(a[i,j]); min:=a[1,1];
if min>a[i,j] then min:=a[i,j]; end;
Write(min); 
readln; 
end;
end.

Помогите у меня тродность в написание функции если кто знает напишите алгоритм и желательно решение
и ещё буду очень признателен если дадите ссылку где можно почитать про функции а то на сайте я прочёл и не очень хорошо понял

Тегами пользуемся для исходников...

[volvo]

что то он не пашет у меня не одномерный массив а двух мерный и он выдаёт ошибку Type mismatch и указывает где это в функции и поэтому мне приходиться исправлять

То, что Вам приходится исправлять - а написать самому не хочется? Так пишите...

Дальше ошибка в разделе переменных над переменной min_row
Duplicate indentifier(min_row)  приходиться её убирать или менять название

Всё !! Теперь мы меняемся ролями. Теперь Вы будете писАть программы, а я - искать в них ошибки.

1. Функция min_row в Вашем исполнении потеряла смысл. Ей все равно, передам я 1 или 2 или 3 - она ВСЕГДА будет делать одно и то же. Исправляйте.

2. Объясните смысл этой конструкции:

for i:=1 to 4 do for j:=1 to 5 do begin
Write(i,j,': '); readln; end;

Я смысла в ней не вижу.

3. Программа не написана "под ключ" (кстати, и не БУДЕТ написана - учитесь шаманить самостоятельно) - поэтому для того, чтобы она заработала нужно еще и ввести данные.

Учите теорию.