Дана непустая последовательность натуральных чисел, за которой следует 0. составить программу поиска в данной непустой последовательности порядкового номера наибольшего элемента. (использовать ! ) help

Program z;
var x,max,n,k:integer;
begin
x:=-1;
max:=-1;
n:=0;
k:=0;
while x<>0 do
begin
readln(x);
k:=k+1;
if x>max then begin max:=x; n:=k; end;
end;
writeln(n);
end.

Матрица не может быть прямоугольной так иначе будет не понятно что подразумевается под диагональю
#include<iostream>
#include<vector>
int main() {
int n;
std::cin>>n;
std::vector<std::vector<int>> matrix(n);
for (int i =0;i<n;++i) {
    for (int j =0;j<n;++j) {
        int elem;
        std::cin>>elem;
        matrix[j].push_back(elem);
    }
}
int first_diag = 0;
int second_diag = 0;
for (int i = 0;i<n;++i) {
    first_diag+=matrix[i][i];
    second_diag += matrix[i][n-i-1];
}
int res = 0;
res = first_diag - second_diag;
std::cout<<res;
}

В общем, т.к. ты мне не ответил - лови две программы:
1)
Program dasf;
var b,c,i: integer;   
A: Array[1..100] of real;   
D: Array[1..100] of real;
begin
Writeln('Введите размерность массива D');
readln(b);
For i:=1 to b do 
begin   
Writeln('Введите элемент массива №',i);   
readln(D[i]); 
end;
Writeln('Массив А:');
For i:=1 to b do 
begin   
If i mod 2=1 then A[i]:=5+(D[i]*D[i])     
else A[i]:=D[i]/i;   
Writeln(A[i]); 
end;
end.

2)
Program fgsadg;
var i,b,x,y,z,k,t: integer;
begin 
Writeln('Введите сколько чисел будет использоваться:'); 
readln(b); 
Writeln('Введите х:'); 
readln(x); 
Writeln('Введите число №',1); 
readln(z); 
k:=0; 
For i:=2 to b do   
begin     
Writeln('Введите число №',i);     
readln(y);     
If z+y=x then k:=k+1;     
z:=y;   
end; 
Writeln(k); 
end. 
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.