[[mzd]]

задача 3
Решение приводит не буду, оно простое, только алгоритм:
перебирай элементы матрицы
max=0;
for i:= 1 to n do
for j:= 1 to n do
*begin
* * *if abs (a[i,j])>max then
* * * * begin
* * * * * * temp_var1:=i;
* * * * * * temp_var2:=j;
* * * * * * max:=a[i,j]
* * * * end;
*end;
Далее переносишь элементы матрицы в другую (результирующую), просматривая значания счетчиков.
for i:= 1 to n do
for j:= 1 to n do
*begin
* ** if i = temp_var1 then inc(i);
* ** if j = temp_var2 then inc(j)
* * *b[i,j]:=a[i,j]
*end;
Вот и все.

Добавлено:

задача 4
Строка - массив элементов типа char.
Просматривай её. Пусть слова отделяются пробелами, тогда ищи входжения пробелов и, тем самым, вычленяй слова. Заводи переменную, которая хранила бы текущее максимальное количество гласных. Сами гласные сделай как множество (set), а потом просто смотри, есть ли текущая буква в нем (проверка на if ... in название мнежества). А потом просто увеличивай счетчик и сравнивай его с максимальным. Извини, восьмую просто не успеваю рассмотреть - домой бегу. Но, надеюсь, хоть в чем-то я тебе помог. Удачи.


[s]Исправлено: [mzd], 19:33 17-12-2003[/s]

[mzd]
Спасибо за решения, сам все дополню...

Строка - массив элементов типа char.

А я пробовал через string, точнее так надо было.
Ещё раз спасибо, помог во многом, сча закончу с матрицами, и вернусь.

[[mzd]]

CREDO
string - он и есть массив типа char.
Но все равно, рад, что помог.

[mzd]
Да с этими задачками решились. А прикол в том, что я вылечу из-за дискретки...  Но хоть на следующий год буду знать как решать!!!

[bilytur]

[mzd]

for i:= 1 to n do for j:= 1 to n do begin     if i = temp_var1 then inc(i);     if j = temp_var2 then inc(j)     b[i,j]:=a[i,j] end;

А если temp_var1==n или temp_var2==n то херня получится!
т.е. если максимальный элемент расположен в последней строке
или последнем столбце твоя прога будет писать за границу массива. это есть некрасиво совсем
Я си изучаю могу на си написать. если хочешь.
Или сам исправь.

[shurikan]

[mzd]
Точнее это будет так:

Код:

 
ii := 0; 
for i:= 1 to n-1 do 
begin 
 *inc(ii); 
 *if i = temp_var1 then inc(ii); 
 *jj := 0; 
 *for j:= 1 to n-1 do 
 *begin 
 * * *inc(jj); 
 * * *if j = temp_var2 then inc(jj) 
 * * *b[i,j]:=a[ii,jj] 
 *end; 
end;

[[mzd]]

bilytur,
shurikan
Писал в попыхах, между написанием базы на Access, мог пропустить. Спасибо, что исправили.
CREDO
Я сам сдавал дискретку, знаю, что это такое Это было четыре года назад, но забыть это не могу до сих пор...