0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 33
1

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

17.11.2010, 20:47. Показов 1242. Ответов 9
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Состовить программу определения среднего арифметического ненулевых элементов 2-го столбца матрицы, плиз
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2010, 20:47
Ответы с готовыми решениями:

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

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

Найти среднее арифметическое элементов каждого столбца матрицы
Дана целая прямоугольная матрица размерности NxM. Найти среднее арифметическое элементов каждого...

Найти среднее арифметическое элементов каждого столбца матрицы
1)Разработать алгоритм и программу решения задачи:" Дана действительная матрица размера n*m.Найти...

9
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 647
17.11.2010, 21:01 2
Pascal
1
2
3
4
5
6
7
8
9
k:=0; sa:=0;
for i:=1 to n do
if a[i,2]<>0 then 
begin
  inc(k);
  sa:=sa+a[i,2];
end;
sa:=sa/k;
writeln(sa:0:2);
0
0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 33
17.11.2010, 21:14  [ТС] 3
Цитата Сообщение от pryda Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
k:=0; sa:=0;
for i:=1 to n do
if a[i,2]<>0 then 
begin
  inc(k);
  sa:=sa+a[i,2];
end;
sa:=sa/k;
writeln(sa:0:2);
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a:array [1..4, 1..4] of integer;
sa,i,n:integer;
k:real;
begin
k:=0;
sa:=0;
for i:=1 to n do
if a[i,2]<>0 then
begin
  inc(k);
  sa:=sa+a[i,2];
end;
sa:=sa/k;
writeln(sa:0:2);
end.
на inc ругается, паскаль abc
0
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 647
17.11.2010, 21:38 4
Pascal
1
2
sa:real;
k:integer;
ну и массив все-таки заполнить нужно...
0
0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 33
17.11.2010, 21:49  [ТС] 5
Цитата Сообщение от pryda Посмотреть сообщение
Pascal
1
2
sa:real;
k:integer;
ну и массив все-таки заполнить нужно...

вот так рагается на 14 строку, хз что там не так (

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a:array [1..4, 1..4] of integer;
k,n,i:integer;
sa:real;
begin
k:=0;
sa:=0;
for i:=1 to n do
if a[i,2]<>0 then
begin
  inc(k);
  sa:=sa+a[i,2];
end;
sa:=sa/k;
writeln(sa:0:2);
end.
как массив заполнить с клавы?
0
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 647
17.11.2010, 21:52 6
MaTpOc, массив заполни.
и
Pascal
1
for i:=1 to n do
замени на
Pascal
1
for i:=1 to 4 do
0
0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 33
17.11.2010, 21:56  [ТС] 7
Цитата Сообщение от pryda Посмотреть сообщение
MaTpOc, массив заполни.
и
Pascal
1
for i:=1 to n do
замени на
Pascal
1
for i:=1 to 4 do
заменил)

напишите пожалуйста полностью рабочую программу, у меня теперь ругается на 14 ю строку sa:=sa/k;

не получается у меня (((
0
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 647
17.11.2010, 21:58 8
MaTpOc, я тебе 8 раз пишу, а ты в упор не видишь. массив заполни!!!
0
0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 33
17.11.2010, 22:25  [ТС] 9
Цитата Сообщение от pryda Посмотреть сообщение
MaTpOc, я тебе 8 раз пишу, а ты в упор не видишь. массив заполни!!!
ну вот программа

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a:array [1..4, 1..4] of integer;
k,n,i:integer;
sa:real;
begin
k:=0;
sa:=0;
for i:=1 to 4 do //заменил на 4
if a[i,2]<>0 then
begin
  inc(k);
  sa:=sa+a[i,2];
end;
sa:=sa/k;
writeln(sa:0:2);
end.
ругается на 14 строку sa:=sa/k; , мб я не понял как надо заполнить массив???

Добавлено через 5 минут
вот еще

та же прога написана по другому, ругается (((

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program Project2;
 
var
  i, N, k: integer;
  C: array[1..12] of integer;
 
begin
  for i := 0 to 12 do
    begin
      C[i] := random(10); //ругается здесь
      writeln(c[i]);
    end;
  writeln;
  n := 0;
  k := 0;
  i := 2;
  while i <= 12 do
    begin
      inc(k);
      n := n + c[i];
      i := i + 2;
    end;
  writeln(n/k);
  readln;
 
end.
0
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 647
18.11.2010, 00:18 10
Цитата Сообщение от MaTpOc Посмотреть сообщение
мб я не понял как надо заполнить массив???
конечно не понял. у меня такое ощущение, что ты вообще не понимаешь чем ты занимаешься. ты клинопись персидскую от паскаля не отличишь.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var k,i,j:integer;
    sa:real;
    a:array[1..4,1..4]of integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(11)-5;
k:=0; sa:=0;
for i:=1 to 4 do
if a[i,2]<>0 then
begin
  inc(k);
  sa:=sa+a[i,2];
end;
sa:=sa/k;
writeln(sa:0:2);
readln;
end.
0
18.11.2010, 00:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2010, 00:18
Помогаю со студенческими работами здесь

Вычислить среднее арифметическое значение элементов столбца матрицы
Помогите. Вычислить среднее арифметическое значение элементов столбца матрицы с максимальной...

Определить среднее арифметическое элементов четвертого столбца, кратных 4.
Помогите решить ошибку

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

Найти среднее арифметическое положительных элементов каждого столбца матрицы
Найти среднее арифметическое положительных элементов каждого столбца матрицы и подсчитать их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru