Двухмерный массив, расчет среднего дохода Опции

[Astat]

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

[Tan]

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

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.

Сообщение отредактировано: Tan - 11.04.2007 12:46

[Гость]

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