Дан двумерный массив размера n×n. требуется посчитать и вывести сумму элементов главной диагонали квадратного массива. формат входных данных с клавиатуры вводится натуральное число n (n≤500). следующие n строк содержат по n целых чисел, разделенных пробелом — элементы массива. все числа не превосходят 1000 по модулю. формат выходных данных требуется вывести одно число — сумму элементов главной диагонали массива. примеры входные данные: 3 1 2 3 4 5 6 7 8 9 выходные данные: 15 напишите на pascal .

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.

i'm going to read a lot of books this year. я собираюсь прочесть много книг в этом году.

we hope you will solve all your problems soon. мы надеемся, что вскоре ты решишь все свои проблемы.

when everyone took their places my grandmother said "well, now listen to stories". когда все заняли свои места, моя бабушка сказала: "ну, теперь послушайте ".

i will try to answer all your questions. я постараюсь ответить на все твои вопросы.

we're going to discuss this buisness plan with our partners. мы собираемся обсудить этот бизнес-план с нашими партнёрами.