даны три массива A[6,6], B[6,6],C[6,6]. найти сумму максимальных элементов, расположенных на главной диагонали

template T find_max( T *arr )
{ T r = arr[0]; for( int i = 0; i < 6*6; i++ ) if (r < arr[i]) r = arr[i]; return r; }
...
find_max( a ) + find_max( b ) + find_max( c )

лучше напряги свои мозги)) пригодится в будущем

Описываете типы и переменные в разделах type и var (можно ограничиться только разделом var). Будет достаточно использовать три переменные типа массив a, b и c, две переменные для индексов i и j целочисленного типа и три переменные для значения сумм такого же типа, как и для элементов массива (или одну переменную, если тип элементов всех трёх массивов одинаковый, а сумму необходимо получить общую).

Генерируете значения массивов случайным образом при помощи функции random (в этом случае не забудьте про процедуру randomize) или заполняете массивы поэлементно с клавиатуры с помощью оператора for и процедур read и write.

Обнуляете переменные или переменную для нахождения суммы (присваиваете 0).

Последовательно перебираете элементы нужного массива оператором for. Например,
for i:= 1 to 6 do for j:= 1 to 6 do

В теле цикла проверяете оператором if, является ли текущий элемент элементом главной диагонали. Условие i=j. Если является, то прибавляете значение этого элемента к общей сумме. Например,
if i=j then begin suma:= suma + a[i,j]; sumb:= sumb + b[i,j]; sumc:= sumc + c[i,j]; end;

Выводите результаты на экран. Например, процедурой write.