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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2010, 11:19   #1
Lokost
 
Регистрация: 26.05.2010
Сообщений: 4
Восклицание квадратная матрица порядка n(Pascal)

Дана действительная квадратная матрица порядка n. Вычислить сумму тех из m элементов, расположенных по главной диагонали и выше неё, которые превосходят по величине все элементы, расположенные ниже главной диагонали. Если элементов с указанным свойством нет, то вывести соответствующее сообщение
Lokost вне форума Ответить с цитированием
Старый 27.05.2010, 14:16   #2
Ol'ga_new
Форумчанин
 
Регистрация: 12.05.2010
Сообщений: 125
По умолчанию

Попробуй так:
Код:
sum:=0;
for j:=1 to n do
begin
i:=0
repeat
i:=i+1;
if a[i][j]>maxz then sum:=sum+a[i][j];
until i=j;
end;
if sum=0 then сообщение

Последний раз редактировалось Stilet; 27.05.2010 в 14:58.
Ol'ga_new вне форума Ответить с цитированием
Старый 30.05.2010, 10:35   #3
Lokost
 
Регистрация: 26.05.2010
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Ol'ga_new Посмотреть сообщение
Попробуй так:
Код:
sum:=0;
for j:=1 to n do
begin
i:=0
repeat
i:=i+1;
if a[i][j]>maxz then sum:=sum+a[i][j];
until i=j;
end;
if sum=0 then сообщение

а можно поподробней расписать всю задачу начиная с самого начала?
Lokost вне форума Ответить с цитированием
Старый 30.05.2010, 22:37   #4
Lokost
 
Регистрация: 26.05.2010
Сообщений: 4
По умолчанию

Помогите решить!
Lokost вне форума Ответить с цитированием
Старый 31.05.2010, 11:12   #5
Ol'ga_new
Форумчанин
 
Регистрация: 12.05.2010
Сообщений: 125
По умолчанию

Код:
const N=10;{любое число}
var sum,max:real;
i,j,n:integer;
a:array[1..N,1..N]of real;
begin
n:=6;{например 6}
for i:=1 to 6 do
for j:=1 to 6 do
 a[i][j]:=random(100);{один из способов задания матрицы}
maxz:=a[2][1];
for i:=2 to n do
  begin
  j:=0;
  repeat
  begin
  j:=j+1;
  if a[i][j] >maxz then maxz:=a[i][j];
  end
  until (i-1)=j
  end;
{здесь проверили нижнюю часть матрицы и нашли максим. значение}
sum:=0;
for j:=1 to n do
begin
i:=0;
repeat
begin
i:=i+1;
if a[i][j]>maxz then sum:=sum+a[i][j];
end
until i=j;
end;
for i:=1 to n do
begin
for j:=1 to n do
write (a[i][j],' :');
writeln
end;
writeln ('max=', maxz);
writeln('sum=',sum);
readln;
end.
Ol'ga_new вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Квадратная матрица нного порядка (Pascal) AlexFAst Помощь студентам 1 27.05.2010 15:18
Дана квадратная матрица n-го порядка. Найти наименьший/нимбольший элемент матрицы. Напечатать его индексы Vadim123456 Помощь студентам 3 01.05.2010 15:27
квадратная матрица N–го порядка Антонова Евгения Помощь студентам 4 30.04.2010 17:41
паскаль!дана квадратная матрица порядка n. игорек фролоff Помощь студентам 4 27.05.2009 23:23
Дана квадратная матрица порядка N. Вычислить среднее арифметическое положительных элементов матрицы, Grisha248 Помощь студентам 2 22.05.2009 17:37