Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2016, 16:30   #1
M&M
 
Регистрация: 18.12.2016
Сообщений: 4
По умолчанию Дана квадратная матрица порядка N.В матрице вычислить среднее арифметическое положительных элементов ,стоящих на главной диагонали.

Дана квадратная матрица порядка N.В матрице вычислить среднее арифметическое положительных элементов ,стоящих на главной диагонали.
M&M вне форума Ответить с цитированием
Старый 18.12.2016, 16:45   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var p:array[1..n,1..n] of integer;
    i,j,sum,c:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=-10+Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   sum:=0;
   c:=0;
   For i:=1 to n do
      If p[i,i]>0 then
      begin
         sum:=sum+p[i,i];
         c:=c+1;
      end;
   If c=0 then
      Writeln('<no>') else
      Writeln(sum/c:2:5);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 18.12.2016, 16:49   #3
Artsiom
Форумчанин
 
Аватар для Artsiom
 
Регистрация: 13.07.2012
Сообщений: 357
По умолчанию

Код:
for i:= 0 to N do
 if a[i,i] > 0 then
 begin
  sum := sum + a[i,i];
  inc(g);
 end;
srArifm := sum/g;
Объяснить?
Artsiom вне форума Ответить с цитированием
Старый 19.12.2016, 10:38   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Artsiom Посмотреть сообщение
Объяснить?
да. объясните, что выдаст ваш код, если на главной диагонали не будет ни одного положительного элемента?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.12.2016, 11:03   #5
Artsiom
Форумчанин
 
Аватар для Artsiom
 
Регистрация: 13.07.2012
Сообщений: 357
По умолчанию

Ну, это будет что-то типа 523435453423,53543543Е-305, что тут не понятного то?
Artsiom вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
(C++) Дана целочисленная квадратная матрица A порядка n и вектор b размером n. Найти сумму положительных элементов вектора c=b*A AirC Помощь студентам 2 25.04.2014 16:39
Дана квадратная матрица А порядка М. Найти сумму элементов каждой её диагонали, параллельной побочной(начиная с одноэлементной диа Richik123 Паскаль, Turbo Pascal, PascalABC.NET 1 31.05.2012 16:15
Дана квадратная матрица А порядка n. Найдите сумму положительных элементов матрицы, стоящих под главной диагональю (Паскаль) Вовик-вовик Помощь студентам 1 10.01.2012 21:48
Дана квадратная матрица порядка N. Вычислить среднее арифметическое положительных элементов матрицы, Grisha248 Помощь студентам 2 22.05.2009 17:37
Вычислить сумму элементов главной и побочной диагонали двумерного массива , найти среднее арифметическое neBu4kaMaXiM Помощь студентам 7 24.02.2009 15:58