Посчитать среднее число в третьем столбце массива

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Доброго времени суток всем! Есть код, который считает среднее число каждого столбца в массиве.

Код

vara:array [1..100,1..100] of integer;
i,j,sr,n,m,s:integer;
begin
Writeln('Vvedite N');
readln(n);
Writeln('Vvedite M');
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10)+1;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
j:=1;
for j:=1 to m do
for i:=1 to n do begin
s:=s+a[i,j];
sr:=sr+1;
if i=n then begin
writeln('(',j,')','Srednee arifmeticheskoe= ', s/sr);
s:=0;
sr:=0;
end;
end;
readln;
end.a

Вопрос, как сделать так, что бы считал только среднее число третьего массива? И так же, как сюда прикрутить то, что бы программа считала максимальное число в этом же, то есть в третьем столбце? Как тогда будет выглядеть финальный код?

Код

uses crt;const n=3;
      m=4;
var a:array[1..n,1..m] of integer;
sum:array[1..m] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to n  do
begin writeln;
for j:=1 to m do begin
a[i,j]:=random(500)-100;
write(a[i,j]:5);
end;
  end;
  writeln;writeln;
for j:=1 to m do
begin
for i:=1 to n do

  sum[j]:=sum[j]+a[i,j];
  write(sum[j]:5,' ');
  end;
            writeln;

end.

Вот нашел, считает сумму столбцов матрицы. Как объединить это в одну программу и сделать так, что бы считался только третий столбец?

№1 | Автор: Prapor48 | 2015-12-27, 14:57 | Репутация: [ + 0 ]

Цитата

среднее число третьего массива?

Цитата

то есть в третьем столбце?

я так понял - и там и там 3-й столбец масива.

Код

var a:array [1..100,1..100] of integer;
i,j,  n,m :integer;
NomStolb, suma, max : integer;
begin
Writeln('Vvedite N');
readln(n);
Writeln('Vvedite M');
readln(m);

//рандомное заполнение
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10)+1;

// вивод на екран
for i:=1 to n do
begin
  for j:=1 to m do write(a[i,j],' ');
  writeln;
end;

NomStolb := 3;
suma:=0;
max:= a[1,NomStolb];
//нахождение суми елементов NomStolb столбца и макс. елемента.
for i := 1 to n do
begin
  suma:= suma + a[i,NomStolb];
  if (max < a[i,NomStolb])then max := a[i,NomStolb];
end;

writeln('Srednee arifmeticheskoe= ', suma/n);
writeln('max = ', max);

readln;
end.

Verhovny Menko

№2 | Автор: Verhovny_Menko | 2015-12-27, 15:53 | Изменено: Verhovny_Menko - Вс, 2015-12-27, 15:56 | Репутация: [ + 7 ]

Цитата Verhovny_Menko (

)

я так понял - и там и там 3-й столбец масива.

Да, не так выразился, спасибо большое, все понятно!

№3 | Автор: Prapor48 | 2015-12-27, 16:33 | Репутация: [ + 0 ]

Посчитать среднее число в третьем столбце массива

Страница 1 из 1
1

прикладная математика