задачи

[Ильнар]

1) Дан вектор В вещественных чисел. Заменить его максимальный элемент суммой первого и последнего элементов, а минимальный – их произведением.

2) Дана матрица вещественных чисел. Получить вектор b, каждый элемент которого наименьший среди элементов j-го столбца. Упорядочить полученный вектор по возрастанию элементов.
3) Дана строка символов. Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами. Если количество слов нечетное, то удалить слово из середины строки, в противном случае вставить в строку слово «нет».
4) Сделать любую из вышеперечисленных задач с помощью процедур или функций.

Помогите пожалйста сделать до 15.09.09, отчислят(((
всетаки обидно с последнего курса вылетать((

[ОДИНОЧЕСТВО В СЕТИ]

1

{ Дан вектор В вещественных чисел. 
Заменить его максимальный элемент суммой первого и последнего элементов,
 а минимальный – их произведением.}
 program vector;
 uses crt;
 var b:array[1..100] of real;
   i,n:integer;
   max,min:real;
begin
randomize;
writeln('input n');
readln(n);
min:=99;
max:=0;
for i:=1 to n do begin
b[i]:=random(10)+random(100)/100;
if b[i]>max then max:=b[i];
if b[i]<min  then min:=b[i];
end;
writeln('vector 1')
for i:=1 to n do 
write(b[i]:7:3);
for i:=1 to n do
begin
if b[i]=min then b[i]:=b[1]*b[n];
if b[i]=max then b[i]:=b[1]+b[n];
end;
writeln('vector 2')
for i:=1 to n do 
write(b[i]:7:3);
readln;
end.

2

{Дана матрица вещественных чисел. Получить вектор b, 
каждый элемент которого наименьший среди элементов j-го столбца.
 Упорядочить полученный вектор по возрастанию элементов.}
  program matrix;
 uses crt;
var a:array[1..100,1..100] of real;
      b:array[1..100] of real;
   i,j,n,m,s:integer;
   min:real;
 begin
writeln('input n');
readln(n);
Writeln('input m');
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10)+random(100)/100;
writeln('matrix');
 for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:6:3);
writeln;
end;
for j:=1 to n do begin
min:=99;
for i:=1 to m do
if a[i,j]<min then min:=a[i,j];
b[j]:=min;
end;
writeln('vector');
for i:=1 to n do
write (b[i]:6:3);
writeln ;
writeln('sort vector');
sorting(n,b);
For i := 2 to n do
For j := n downto i do
If b[j-1] > b[j] then begin min:=b[j-1];
b[j-1]:=b[j];
b[j]:=min;end;
for i:=1 to n do
write (b[i]:6:3);
readln;
end.

4 2 с процедурами

  program matrix2;
 uses crt;
 type vector = array[1..100] of Real;
 procedure exchange(var a,b:real);
var c:real;
begin
c:=a; a:=b; b:=c; end;
procedure Sorting (n:integer; Var x:Vector);
var i:integer; swop:boolean;
begin
repeat
swop:=false;
for i:=1 to n-1 do
if x[i]>x[i+1] then begin         //esli "<" togda po ubivaniiu
exchange(x[i],x[i+1]); swop:=true; end;
n:=n-1;
until not swop;
end;
var a:array[1..100,1..100] of real;
      b:vector;
   i,j,n,m,s:integer;
   min:real;
 begin
writeln('input n');
readln(n);
Writeln('input m');
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10)+random(100)/100;
writeln('matrix');
 for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:6:3);
writeln;
end;
for j:=1 to n do begin
min:=99;
for i:=1 to m do
if a[i,j]<min then min:=a[i,j];
b[j]:=min;
end;
writeln;
writeln('vector');
for i:=1 to n do
write (b[i]:6:3);
sorting(n,b);
writeln;
writeln('sort  vector');
for i:=1 to n do
write (b[i]:6:3);
readln;
end.

[Ильнар]

Спасибо огромное!!! а другие задачи никак не решить?