Фирма имеет 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']
спасибо за задачу.