Общая информация

Ввод массива

Вывод массива

Поиск

Сортировка

Вычисление
колличественных
характеристик массива

Котрольные вопросы

Задания

Program Example;
Const
   maxN = 20;

Type
   IndexEll = 1 .. maxN;
   arrInt = array[interval] of integer;

Var
   a:arrInt;
   n:integer;
   i:IndexEl;
   max: IndexEl;

Begin
    randomize;
    n:=random(6)+5;
    for i:=1 to n do
        A[i]:=random(19)-9;

    max:=1;
    for i:=2 to n do
        if A[i]>A[max] then max:=i;

    for i:=n downto max+1 do
        A[i+1]:=A[i];
    A[max+1]:=0;
    Inc(n);
    writeln('Массив А после обработки:');
    for i:=1 to n do
        write(A[i]:3);
    readln;
End.