Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Alkcatras
0 / 0 / 0
Регистрация: 06.11.2011
Сообщений: 31
1

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

31.03.2012, 10:35. Просмотров 715. Ответов 1
Метки нет (Все метки)

помогите пожалуйста сделать программу..........


В каждой строке заданной матрицы A(N,M).Вычислить среднее арифметическое положительных элементов
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 10:35
Ответы с готовыми решениями:

В каждой строке заданной матрицы A(N, M) вычислите сумму, количество и среднее арифметическое положительных элементов
В каждой строке заданной матрицы A(N, M) вычислите сумму, количество и среднее...

Вычислить среднее арифметическое в каждой строке матрицы
В матрице C(5x3) вычислить среднее арифметическое в каждой строке.Если...

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

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

Вычислить сумму квадратов положительных элементов в каждой строке матрицы
Дан массив К(5,15). Вычислить сумму квадратов положительных элементов в каждой...

1
КонецСвета
Почетный модератор
7932 / 3903 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
31.03.2012, 11:36 2
Лучший ответ Сообщение было отмечено Alkcatras как решение

Решение

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
uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    n,m,i,j,k,sum: integer;
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
writeln('');
for i:=1 to n do
    for j:=1 to m do
        begin
        write('a[',i,',',j,']='); readln(a[i,j]);
        end;
clrscr;
write('Дана матрица');
for i:=1 to (m*4)-10 do write(' ');
writeln('Ср.ар.пол.эл.');
for i:=1 to n do
    begin
    k:=0; sum:=0;
    for j:=1 to m do
        begin
        write(a[i,j]:4);
        if a[i,j]>0 then
           begin
           inc(sum,a[i,j]);
           inc(k);
           end;
        end;
    if k>0 then writeln(sum/k:8:1)
       else writeln;
    end;
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2012, 11:36

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

Матрица. Найти среднее арифметическое всех положительных элементов каждой строки
Задача 1. Сформировать матрицу А(10,15). Данные ввести с клавиатуры. 2. Найти...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru