Двумерный массив: Определить среднее арифметическое элементов л-го столбца массива

08.05.2013, 11:00. **Показов** 4787. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Дан двумерный массив. Определить: а) среднее арифметическое элементов л-го столбца массива;
б) среднее арифметическое элементов первой строки массива.

@Grek! · 08.05.2013, 11:16

Pascal

const
    nmax=100;
  var
    a: array[1..nmax,1..nmax] of integer;
    i,j,sum,n,m,k: integer;
begin
  write('vvedite razmeri massiva: ');
  readln(n,m);
  writeln('massiv:');
  randomize;
  sum:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
      if i=1 then sum:=sum+a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('srednee 1-i stroki = ',(sum/m):7:2);
  sum:=0;
  write('vvedite nomer stolbca: ');
  readln(k);
  for i:=1 to m do
    sum:=sum+a[i,k];
  writeln('srednee ',k,'-i stolbca = ',(sum/n):7:2);
  readln;
end.

limpBL
		1
	Двумерный массив: Определить среднее арифметическое элементов л-го столбца массива 08.05.2013, 11:00. Показов 4787. Ответов 1 Метки нет (Все метки) Дан двумерный массив. Определить: а) среднее арифметическое элементов л-го столбца массива; б) среднее арифметическое элементов первой строки массива.

Опции темы

Двумерный массив: Определить среднее арифметическое элементов л-го столбца массива

Решение