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

@KuIII · Регистрация: 10.05.2011

Author24 — интернет-сервис помощи студентам

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

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

@stragger · 06.12.2011, 17:39

Pascal

program func;
const N=10;
var
  a:array[1..N,1..N] of integer; //исходная матрица
  b:array[1..N] of integer;      //массив для результатов
  i, j, k, nmax:integer; //nmax - номер максимального
begin
  k:=1;
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(20)-10;
  while(k<=10)do
  begin
    if a[k,k]<0 then
    begin
      nmax:=1;
      for i:=2 to n do
        if a[k,i]>a[k,nmax] then
          nmax:=i;
      b[k]:=a[k,nmax];
    end;
  inc(k);
  end;
end.

Вроде так.

@KuIII · 06.12.2011, 18:16 **[ТС]**

странно , но у меня почему то она даже не запускается..

@stragger · 06.12.2011, 18:37

Что значит не запускается? Ошибка какая-то?

Ну здесь нет вывод результата, поэтому программа только подмигнёт вам окошком и всё, думаю вывод результатов не такая уж и сложная задача, сами допишите.

@KuIII 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 33
		1
	В каждой из строк с отрицательным элементом на главной диагонали найти наибольший из всех элементов строки 06.12.2011, 17:14. Показов 1327. Ответов 3 Метки нет (Все метки) помогите пожалуйста, очень нужно написать программу. Дана действительная квадратная матрица порядка порядка 10. В каждой из строк с отрицательным элементом на главной диагонали найти наибольший из всех элементов строки. Сформировать одномерный массив, в котором записать эти наибольшие значения на места, соответствующие указанным строкам. 0

@KuIII 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 33
	06.12.2011, 18:16 [ТС]	3
	странно , но у меня почему то она даже не запускается.. 0

@stragger 40 / 40 / 5 Регистрация: 05.12.2011 Сообщений: 343
	06.12.2011, 18:37	4
	Что значит не запускается? Ошибка какая-то? Ну здесь нет вывод результата, поэтому программа только подмигнёт вам окошком и всё, думаю вывод результатов не такая уж и сложная задача, сами допишите. 0

Опции темы

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

Решение