Менеджер составляет электронную табли Покупатели

Const
n=5

var

a:array[1..n] of integer; //создали одномерный массив длинной 5
b:array[1..n,1..n] of integer; //создали двумерный массив 5х5
i,j:integer; //i,j- счетчик

begin
 
 for i:=1 to n do
  for j:=1 to n do
   b[i,j]:=random(10)+1; {задали массив случайными числами в диапазоне от 1 до 10}
 
 for i:=1 to n do
   begin
    a[i]:=b[i,i]; //присваиваем i-ому элементу массива элемент i-i.
   end; //То есть 1-ому, 1-1, 2-ому 2-2. Это и есть главная диагональ.

{вывод двумерного массива на всякий случай:
 for i:=1 to n do
  begin
  for j:=1 to n do
   begin
    write(b[i,j],' ');
   end;
  writeln("");
  end; }

For i:=1 to n do
 write(a[i]," ");

readln();
end.

Есть очень много програм позволяющих это сделать.

Начнём с начала!

Если ты хочешь сделать свой сайт то надо:

1) Зарегистрировать домен (то есть придумать имя и лого). Это нужно чтобы легче было найти твой сайт.

2)Купить веб-хостинг.Тоесть сервер, на котором будут хранится твои сайты/информация (сервер можно арендовать).

3)Создайте свою веб-страницу! Можно нанять программиста который добавит скрипты, украсит и анимирует сайт.

* Украсить сайт можно в фотошоп.

* Анимировать можно почти в любой проге.

* Написать скрипт можно на многих языках(c++, python итд).

Веб-сайт можно делать полностью с нуля или создавать полу готовый.

Надеюсь что