Матрица в Paskal

[Fromki]

Помогите решить а паскале плиз...
Вводится матрица MT (n,m) с цифровой информацией. Составить программу нахождения в столбцах матрицы положительных (>0) элементов, подсчета их количества и сумм. Получить новую матрицу, в которой элементы будут представлены числами, полученными от деления суммы положительных элементов по столбцу на значение конкретного элемента. Исходные, промежуточные и результатные данные вывести на дисплей.

[Prime123]

Если есть наработки-покажите
Если нет-могу помочь,за чисто символическую цену

[Fromki]

Наработок нет....мне нужен работающий код....напишите плизз

[unbanned]

в фриланс с таким подходом)))

[Fromki]

Я в паскале плохо разбираюсь вот и прошу код.

[Prime123]

Читайте книги,в таком случае,или ищите альтруистов

[Fromki]

ну неужели никто не напишет код? мне очень срочно нужно

[Mad_Cat]

for i:=1 to m do begin
s:=0;
 for j:=1 to n do
if mt[j,i]>0 then s:=s+mt[j,i]
for j:=1 to n do
 if mt[j,i]<>0 then mt[j,i]:=s/mt[j,i];
end;

[Fromki]

Этот код не работает чето

[vovk]

хотите кода? его у нас есть))

program cool_super_program;
uses  crt;
const
n=5; m=5;
var
super_square_matrix : array [1..n,1..m] of integer;
cool_array_of_columns : array [1..n] of integer;
x, y,kakayato_neivestnaya_peremennaya:integer;
begin
clrscr;
 randomize;
kakayato_neivestnaya_peremennaya :=45; {а потомучта}
for x:=1 to n do
 begin
 y:=1;
   while not (y > m) do
   begin
    super_square_matrix[x,y]:=random(9)-5;
    inc(y);
   end;
 end;
   writeln('это матрица, неужели неузнали?');
   x:=0;
   repeat
     inc(x,1);
     for y:=1 to m do
     begin
       if  (x=1)  then
         write('_____')
         else
   if  (x>n+1)  then
        write('-----')
         else
        begin
 if super_square_matrix[y,x-1] > -1 then
       write;
     write(super_square_matrix[y,x-1]);
     write(' | ');
        end;
     end;
     writeln;
   until m<(x-1);

     y:=0;
   while y < m do
    begin
       x:=1;
       cool_array_of_columns[y+1]:=0;
      repeat
     if super_square_matrix[y+1,x]>0 then
     cool_array_of_columns[y+1]:=cool_array_of_columns[y+1]+ super_square_matrix[y+1,x];
      inc(x);
      until x>n;
     y:=y+1;
    end;
    writeln('это супер матрица, и первые итоги ну столбики сложили ');
   y:=1;
   repeat
     for x:=1 to m do
       begin
   if  (y=1)  then
        write('_____')
       else
   if  (y>n+1)  then
        write('-----')
         else
        begin
           if super_square_matrix[x,y-1] > -1 then
                write(' ');
        write(super_square_matrix[x,y-1]);
        write(' | ');
         end;
        end;
       writeln;
       inc(y,1);
    until (n+2<y);

    for x:=1 to n do
      begin
 write(cool_array_of_columns[x]);
        write(' | ');
      end;
 writeln(' а тут как раз суммы');

for x:=1 to n do
for y:=1 to m do
if super_square_matrix[x,y]<>0 then
super_square_matrix[x,y]:= cool_array_of_columns[x] div super_square_matrix[x,y];
 writeln;

   writeln('а вот то что вышло, правда так лучше?))');
   x:=0;
   repeat
     inc(x,1);
     for y:=1 to m do
     begin
       if  (x=1)  then
         write('_____')
         else
   if  (x>n+1)  then
        write('-----')
         else
        begin
     if super_square_matrix[y,x-1] > -1 then
                write(' ');
     write(super_square_matrix[y,x-1]);
     write(' | ');
        end;
     end;
     writeln;
   until m<(x-1);
  readln
end.

я правда сам тут уже ничего не понимаю)) но вам же не важно, лиш бы работало))