Сделайте таблицу в Excel как на скрине

Uses crt;
var n,i,j,l,sum,min:integer;
a:array[1..20,1..20]of integer;
begin
clrscr;
write('n=');
readln(n);
randomize;
Writeln('Ishodnaja matrica:');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
For l:=1 to 2*n-1 do
begin
sum:=0;
if l<=n then
begin
for i:=1 to l do
for j:=1 to l do
if j=l-i+1 then sum:=sum+a[i,j];
if sum<min then min:=sum;
end
else if l>n then
begin
for i:=l-n+1 to n do
for j:=l-n+1 to n do
if j=l-i+1 then sum:=sum+a[i,j];
if sum<min then min:=sum;
end;
writeln('Summa diagonali ',l,' = ',sum);
end;
writeln;
readln
end.

#include <iostream>
#include <conio.h>

using namespace std;

int main()
{
    setlocale(LC_ALL , "");

    int S(0), N(0);

    cout << "Введите значение N: ";
    cin >> N;

    int Number_array[N];

    for(int i(0); i < N; i++)
    {
        cout << "Введите " << i+1 << " число: ";
        cin >> Number_array[i];
    }

    for(int i(0); i < N; i++)
    {
        if(Number_array[i] == 0)
        S++;
    }

    if(S != 0)
    cout << "В последовательности N ноль встречается " << S << " раз." << endl;
    else
    cout << "В последовательности N ноль не встречается." << endl;

    _getch();
    return 0;
}