VPF::Помогите!!! - Форум программистов

Гость_zmey

Дата 13.11.2004, 10:42 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

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

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

Zero

Дата 13.11.2004, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата

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

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

Гость_zmey

Дата 13.11.2004, 11:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Zero

Дата 13.11.2004, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Ладно, держи прогу, а блок-схему сам нарисуеш, это не так уж и сложно... 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 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »