Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
mafaka
0 / 0 / 0
Регистрация: 16.01.2014
Сообщений: 5
#1

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

26.06.2014, 16:06. Просмотров 1090. Ответов 1
Метки нет (Все метки)

дана целочисленная квадратная матрица А порядка N. Найти среднее арифметическое элементов, стоящих на побочной диагонали и под ней
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2014, 16:06
Ответы с готовыми решениями:

Найти сумму, количество и среднее арифметическое элементов массива, стоящих выше побочной диагонали
найти сумму, количество и среднее арифметическое элементов массива, стоящих...

Вывод суммы и среднее арифметическое элементов матрицы, расположенных на побочной диагонали
Задание: Дана матрица n*n. Создать текстовое меню доя возможности решения 3...

Найти среднее арифметическое элементов ниже побочной диагонали
Дан массив A(m,n) Найти среднее арифметический элемент массива расположенный...

Найти сумму отрицательных элементов матрицы, стоящих на ее побочной диагонали
Дан двумерный числовой массив A(n,n).Найти сумму отрицательных элементов...

Найти произведение элементов, стоящих ниже побочной диагонали матрицы
Найти произведение элементов стоящих ниже побочной диагонали матрицы А

1
tomb2002
32 / 32 / 43
Регистрация: 07.02.2014
Сообщений: 89
26.06.2014, 21:29 #2
Лучший ответ Сообщение было отмечено mafaka как решение

Решение

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
44
45
46
47
48
49
50
51
52
Program mafaka;
USES CRT;
CONST
nmax = 10;
VAR
A : array [1..nmax,1..nmax] of byte;
i, j, k, c, v, N: byte;
sum : integer;
BEGIN
clrscr;
Randomize;textcolor(7);
Repeat
Write('Задайте размер квадратной матрицы от 1 и не больше ',nmax,' : ');ReadLn(N)
Until ( (N>1) and (N<10) );
WriteLn('Получаем исходную матрицу');
WriteLn('|-------------------|');
FOR i:=1 TO N DO
  Begin
    FOR j:=1 TO N DO
      begin
        A[i,j]:=random(10)+5;
        write('|',A[i,j]:3,' ');
      end;write('|');
WriteLn;WriteLn('|----+----+----+----|');
  End;
sum:=0;k:=0;
c:=1;v:=n;
WriteLn('Считаем сумму в выделенной области матрицы "A" :');
WriteLn('|-------------------|');
FOR i:=1 TO N DO
  BEGIN
    FOR j:=1 TO N DO
      Begin
        IF ((i=c) AND (j>=v)) THEN
          begin
            write('|');textcolor(14);write(A[i,j]:3,' ');textcolor(7);
            sum:=sum + A[i,j];
            inc(k);
          end
        else
          begin
            write('|');textcolor(7);write(A[i,j]:3, ' ');textcolor(7);
          end;
      End;write('|');WriteLn;
WriteLn('|----+----+----+----|');
v:=v-1;inc(c);
  END;
WriteLn('Сумма всех элементов выделенной области = ',sum);
WriteLn('Количество всех элементов выделенной области = ',k);
WriteLn('Среднее арифметическое всех элементов выделенной области = ',sum/k:3:2);
Readkey
END.
1
Миниатюры
Найти среднее арифметическое элементов матрицы, стоящих на побочной диагонали и под ней  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.06.2014, 21:29

Найти среднее арифметическое элементов, стоящих над главной диагональю матрицы
1. Дана целочисленная матрица А порядка N. Найти среднее арифметическое...

Найти среднее арифметическое значений элементов, стоящих на главной диагонали двумерного массива, размера 4х4, заполненного случайными числами.
Напишите пожалуйста решение!СПАСИБО! Найти среднее арифметическое значений...

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


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

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

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