Двумерный массив

[qqq``]

Дан двумерный массив 10 на 10 найти все элементы выше главной дмагонали

[Аватар]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[dummy_user]

Сообщение от qqq``

Дан двумерный массив 10 на 10 найти все элементы выше главной дмагонали

Ну приведите хотя бы своё решение для начала.

[Heilagr]

Подсказка: главная диагональ двумерного массива определяется как [i][i].

[digitalis]

найти - и что с ними делать, найденными?
вангую : а давайте-ка их просуммируем !

  sum := 0 ;
  for i := 1 to 9 do
   for j := i+1 to 10 do  s := s + mas[i,j]

[Serge_Bliznykov]

Сообщение от digitalis

найти - и что с ними делать, найденными?

так ничего не надо. сказано же - просто "найти"

Сообщение от qqq``

Дан двумерный массив 10 на 10 найти все элементы выше главной диагонали

легко:

const N=10;
var A : array[1..N,1..N] of integer;
  i,j : integer;
begin
  Randomize; 
  for i:=1 to N do begin
    for j:=1 to N do begin A[i,j] := random(100)+1; Write(A[i,j]:4); end;
    WriteLn
  end;

  WriteLn('Элементы выше главной диагонали:');
  for i:=1 to N do
    for j:=i+1 to N do Write(A[i,j]:4);
  WriteLn
end.

[digitalis]

в последней строке нет ни одного элемента выше гл.д. ....

[Serge_Bliznykov]

Сообщение от digitalis

в последней строке нет ни одного элемента выше гл.д. ....

ну и ничего страшного не произойдёт - внутренний цикл в этом случае не выполнится.

ну, можно и так, конечно:

for i:=1 to N-1 do
    for j:=i+1 to N do Write(A[i,j]:4);

[digitalis]

... затратятся лишние микросекунды на пустой цикл, запоздает корректирующий импульс - и ракета улетит черт знает куда