Даны массивы

[Angeling]

Здраствуйте, помогите ПЖ написать программмы на паскале.)

1) Дан двумерный массив n*n.Найти сумму элементов выше главной диагонали.

2)Дан массив n*m.Найти сумму максимального и минимального элемента массива и вывести индексы.

[Wicort]

1.

сумма = 0;
Цикл по строкам (i)
   Цикл по столбцам (j)
      если j>i то сумма = сумма + значение в ячейке[i,j];
   Конец цикла по столбцам;
Конец цикла по строкам;
Выводим сумму;

2.

min_val = 0;
max_val = 0;
min_i = 0;
min_j = 0;
max_i = 0;
max_j = 0;
min_val = значение в ячейке [0,0];
max_val = значение в ячейке [0,0];
Цикл по строкам (i)
   Цикл по столбцам (j)
      если значение в ячейке[i,j] < min_val, то min_val = значение в ячейке[i,j], min_i = i, min_j = j;
      если значение в ячейке[i,j] > max_val, то max_val = значение в ячейке[i,j], max_i = i, max_j = j;
   Конец цикла по столбцам;
Конец цикла по строкам;
Выводим min_i, min_j;
Выводим max_i, max_j;
Выводим min_val + min_val;

[Jaguar83]

1)PASCAL

sum:=0;
for i:=0 to n do
   for j:=0 to n do
      if (j>i) then sum:=sum+arr[i,j];

Извиняюсь, пока печатал, Wicort уже все расписал

[Serge_Bliznykov]

Wicort, зачётный ответ!

маленькое уточнение по поводу второй задачи. Если в задаче на поиск минимума/максимума требуется и индекс(ы) получить, в этом случае переменные на хранение величины минимума и максимума излишни - ведь у нас же есть индексы - а по ним величина берётся элементарно.
поясню:

min_i = 0;
min_j = 0;
max_i = 0;
max_j = 0;
Цикл по строкам (i)
   Цикл по столбцам (j)
      если значение в ячейке[i,j] < значение в ячейке[min_i, min_j], то  min_i = i, min_j = j;
      если значение в ячейке[i,j] > значение в ячейке[max_i, max_j], то max_i = i, max_j = j;
   Конец цикла по столбцам;
Конец цикла по строкам;
Выводим min_i, min_j;
Выводим max_i, max_j;
Выводим значение в ячейке[min_i, min_j] + значение в ячейке[max_i, max_j];

p.s. это уточнение ни в коем разе не указывает на то, что 2-я задача решена неверно! Абсолютно верно. И, возможно, кому-то это решение понравится больше, чем предложенный мною вариант...