Pascal для 61 роты

Начнём использовать массивы

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 //создадим массив из 10 элем элементов
var a:array[1..10] of integer;
i:integer;

begin
  Writeln('Pishem v massiv chisla on 1 do 10');
  //пробегаем по элементам массива
  for i := 1 to 10 do
   begin
     a[i] := i;//заполняем его числами от 1 до 10
   end;

  Writeln('Vot, chto v massive:');
  //теперь выведем их на экран
  for i := 1 to 10 do
   begin
     Writeln(a[i]);//выводим элементы на экран
   end;

 Readln;//Обязательная команда, чтобы программа не закрывалась внезапно
end.

Работает? Теперь будем расширять. Новая программа будет заполнять массив случайными числами, находить их сумму, максимальное из них и минимальное



program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 //создадим массив из 10 элем элементов
var a:array[1..10] of integer;
  i:integer;
  s:integer;
  mx:integer;
  mn:integer;
begin
  Writeln('Pishem v massiv sluchajnye chisla');
  //пробегаем по элементам массива
  for i := 1 to 10 do
   begin
     a[i] := random(100);//заполняем его случайными числами от 0 до 99
   end;

  Writeln('Vot, chto v massive:');
  //теперь выведем их на экран
  for i := 1 to 10 do
   begin
     Writeln(a[i]);
   end;

//ищем сумму. вначале она равна 0
  s:=0;

  for i := 1 to 10 do
   begin
     s:=s+a[i];
   end;

  Writeln('summa ravna ', s);

//Теперь ищем максимум и минимум. Вначале они оба равны первому элементу

 mx:=a[1];

 mn:=a[1];

for i := 2 to 10 do
   begin
//Если находится элемент, который больше текущего максимума текущий масимум поднимаем
      if a[i] > mx then
        mx := a[i];
//Если находится элемент, который меньше текущего минимума текущий минимум поднимаем

      if a[i] < mn then
        mn := a[i];

   end;

  Writeln('minimum raven ', mn);

  Writeln('maximum raven ', mx);

 Readln;
end.

Подумайте самостоятельно, как сделать так, чтобы эти 10 чисел не генерировал компьютер, а вводил человек.