Задания по одномерным и двумерным массивам (Turbo Pascal)

[Vet11]

1.В векторе заменить максимальный элемент на (+1), а минимальный на (-1).

2. В матрице B (n,m) заменить каждый элемент, лежащий на главной диагонали наименьшим элементом соответствующей строки. Индексирование элементов начать с 26. Построить блок-схему алгоритма.

Кто может, помогите. И блок схему во 2 задании тоже желательно, хоть схематически... Заранее спасибо

[Mad_Cat]

1)

im1:=1;im2:=1;
for i:=2 to n do begin
if a[i]>a[im1] then im1:=i;
if a[i]<a[im2] then im2:=i;
end;
a[im1]:=1;a[im2]:=-1;

2)

for i:=1 to n do begin
im:=1;
for j:=2 to n do 
if a[i,j]<a[i,im] then im:=j;
a[i,i]:=a[i,im];
end;

[Vet11]

А можешь полностью написать, а не только код. Я дуб просто в этом:-(

[Vet11]

Ну ребят, помогите кто-нибудь, напишите пожалуйста