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

Вычислить среднее арифметическое чётных элементов каждого столбца матрицы

02.09.2013, 10:33. Показов 886. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вычислить среднее арифметическое чётных элементов каждого столбца марицы A(N;M). Результаты необходимо отпечатать в виде массива-строки X.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.09.2013, 10:33
Ответы с готовыми решениями:

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

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

Среднее арифметическое элементов i-ого столбца матрицы, стоящих в четных строках
Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – среднее арифметическое...

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

4
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,587
Записей в блоге: 1
02.09.2013, 11:31 2
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
27
28
29
30
31
Var A:array[1..20,1..20] of integer;
    X:array[1..20] of real;
    i,j,n,m,k:byte;
Begin
    write('Введите N,M: ');readln(n,m);
    writeln('Матрица A');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(21);
        write(A[i,j]:3);
      End;
      writeln;
    End;
    For j:=1 to m do
    Begin
      X[j]:=0;k:=0;
      For i:=1 to n do
       if A[i,j] mod 2 = 0 then 
       Begin
         X[j]:=X[j]+A[i,j];
         inc(k);
       End;
      if k>0 then X[j]:=X[j]/k;
    End;
    writeln('Массив-строка X');
    For i:=1 to m do
     write(X[i]:6:2);
    readln;
End.
1
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
02.09.2013, 11:42 3
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of real;
    x:array[1..nmax] of real;
    m,n,k,i,j:byte;
    sr:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
j:=2;
k:=0;
while j<=m do
 begin
  sr:=0;
  for i:=1 to n do
  sr:=sr+a[i,j];
  k:=k+1;
  x[k]:=sr/n;
  j:=j+2
 end;
writeln('Массив средних значений четных столбцов:');
for i:=1 to k do
write(' ':6,x[i]:6:2);
readln
end.
Добавлено через 49 секунд

Не по теме:

Получилось вдогонку....

1
0 / 0 / 0
Регистрация: 02.09.2013
Сообщений: 7
02.09.2013, 12:58  [ТС] 4
оперативно то как!) премного благодарен Вам!
0
Puporev
02.09.2013, 13:03     Вычислить среднее арифметическое чётных элементов каждого столбца матрицы
  #5

Не по теме:

Цитата Сообщение от serjio970 Посмотреть сообщение
оперативно то как!)
Так еще почти лето.... Зайди в декабре...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.09.2013, 13:03

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

Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5)
Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5).

Вычислить среднее арифметическое каждого столбца массива и отсортировать элементы по возрастанию
дан двумерный массив (n*n) 1)необходимо вычислить среднее арифметическое каждого столбца массива...

Сформировать вектор В как среднее арифметическое положительных элементов каждого столбца
помогите люди добрые )) Тема моей кр работы: Вычисление матриц в Паскале. Задача данной...


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

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

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