Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Помогите!!!

Автор: Гость_zmey 13.11.2004, 10:42

Нужна срочно програмка.........помогите pls

Составить программу определения среднего арифметического положительных элементов каждого столбца матрицы А(m,n). Найденные числа записать в массив В; массив В переписать в массив С в обратном порядке.

А также ее блок схема

Заранее благодарен

Автор: Zero 13.11.2004, 10:51

Цитата

А также ее блок схема

Ты хочеш, чтобы мы затебя и блок-схему нарисовали? smile

Автор: Гость_zmey 13.11.2004, 11:27

Хотябы прогу.........

Автор: Zero 13.11.2004, 11:32

Ладно, держи прогу, а блок-схему сам нарисуеш, это не так уж и сложно... smile

Код


program pr;
Const
  m=4;
  n=5;
var
   A:array[1..m,1..n] of real;
   B,C:array[1..n] of real;
   S:real;
   i,j:integer;
Begin
     for i:=1 to m do
       for j:=1 to n do
         begin
           write('a[',i,',',j,']=');
           readln(a[i,j]);
         end;
     S:=0;
     for i:=1 to n do
      begin
        for j:=1 to m do
          if a[j,i]>0 then s:=s+a[j,i];
        s:=s/m;
        b[i]:=s;
        s:=0;
      end;
    for i:=1 to n do
      c[i]:=b[n-i+1];
    for i:=1 to n do
      write(b[i]);
    writeln;
    for i:=1 to n do
      write(c[i]);
end.

Автор: Гость_zMey 13.11.2004, 18:43

Базара нет!!!!!
Спасибо большое!!! Выручил!!!