Задачка на паскале

[mistertvister]

как выполнить следуюшие операции . матрица MxM
*поиск минимального элемента в каждом столбце и выводе их на печать
*подсчет суммы всех четных элементов матрицы, расположеных на главной диагонали
*замена четных чисел на !
*расположить все элементы в каждой строке в порядка возрастания

зарание спасибо!

[mistertvister]

покажите алгоритм пожалуйста потом сам буду делать
а без примера тяжелоесли вас не затруднит распишите все действия спс!

[Вавел из ГМТУ]

*замена четных чисел на !

Имено на "!" знак?

[mistertvister]

дааааааа)))))

[Вавел из ГМТУ]

Задание ерундовое, но я пишу только под Делфи или консоль.

А какой пример то нужен? Их целая куча тут была.

Напиши скелет программы чтоли:

Var .....

Begin

// Заполнение массива через Random.

// Вывод массива на экран.

End.

Дальше можно будет подумать..

[mistertvister]

шас поробую

[mistertvister]

что такой random??

[LeBron]

Просите алгоритмы - будут Вам алгоритмы. Первое задание - проходимся циклом по строкам, внутри этого цикла - вложенным по столбцам. Проверяем для каждого эллемента,- если он меньше за минимум своего столбца, то присваиваем минимуму значение этого эллемента. Для минимумов заводим одномерный массив, заранее заполняем его или числами первой строки, или просто большими числами (такими, чтобы точно были большими за минимумы в столбцах - а то вместо минимумов они и остануться).
Второе - один цикл. Надо учесть, что на главной диагонали обе координаты равны. Поэтому для всех таких эллементов, если они парны - прибавляем к сумме.
В третьем прще всего "схитрить" - делаем обычный вывод массива, но с проверкой, если число нечетное - выводить его, иначе - восклицательный знак.
В четвертом обычная сортировка, любой удобный для Вас алгоритм.

[mistertvister]

вообше это одна задача и надо все эти пункты учесьть в программе.

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

поиск минимального элемента в каждом столбце и выводе их на печать

for i:=1 to n do begin
min:=a[1,i];
for j:=2 to n do 
if a[j,i]>min then min:=a[j,i];
writeln(min);
end;

подсчет суммы всех четных элементов матрицы, расположеных на главной диагонали

min:=0;
for i:=1 to n do
if a[i,i] mod 2 =0 then min:=min+a[i,i];
writeln('sum=',min);

замена четных чисел на !

for i:=1 to n do
begin
for j:=1 to n do 
if a[i,j] mod  2 = 0 then write('    !    ')
 else write(a[i,j]:6:3) ;
writeln;
end;

расположить все элементы в каждой строке в порядка возрастания

Copyright Puporev

procedure Sort_Str(var ms:mas;n:integer);{сортировка в строке}
var i,x,L,R,m,j:integer;
begin
for i:=2 to n do
  begin
    x:=ms[i];
    L:=1; R:=i;
    while L<R do
      begin
        m:=(L+R) div 2;
        if ms[m]<=x then L:=m+1
        else R := m;
      end;
    for j:=i downto R+1 do ms[j]:=ms[j-1];
    ms[R]:=x;
  end;
end;