Фирма имеет 10 магазинов, информация о доходе каждого магазина за каждый месяц года хранится в двухмерном массиве (1 магазин - в 1 строке, 2 - во второй, и т.д). Составить программу для расчета среднего месячного дохода любого магазина.

А что неясного?
Матрица A(M,N). M = 10. N=12. Средний месячный доход - это сумма всех элементов в данной строке, делённая на 12.

напишите, пожалуйста, весь код программы.

А может преподу пойти тоже мне твоему отвечать?

Ты хоть что знаешь напиши, а с остальным поможем

разбирайся, если что не ясно, пиши!

uses crt;
Const N = 10;
      M = 12;
var  ms : array [1..N,1..M] of integer;
    i,j,k : integer;
    sum : real;
begin
Clrscr;
randomize;
for i:=1 to N do
  begin
    for j:=1 to M do
      begin
         ms[i,j]:=random(10);
         write (ms[i,j]:4);
      end;
    writeln;
  end;
    writeln ('Vvedite nomer magazina');
    readln(k);
sum:=0;
for i:=1 to M do sum:= sum + ms[K,i];
writeln;
writeln ('Srednjaja zarplata= ', (sum / M):0:2);
readkey;
end.

[quote name='Tan' date='11.04.2007 12:46' post='97361']
спасибо за задачу.