Блок-схема

program dz;
Uses crt;
const
  n = 25;
var
  a:array[1..25] of integer;
  i, num, num2:byte;
  sum, min, max1, max2, temp: integer;
  mul:longint;
  mean:real;
begin
  for i:= 1 to n do
    a[i]:= random(10); //заполняем вектор случайными числами.
///////////////////////////////////
///////////////////////////////////Пункт А
///////////////////////////////////
  sum:= 0;
  mul:= 1;
  for i:= 1 to n do
  begin
    if a[i] > 2 
    then mul:= mul * a[i];
    if i > 15
    then sum:= sum + a[i];
  end;
  writeln('summa = ',sum, ' proizvedenie = ',  mul);  //вывод результатов на экран
///////////////////////////////////
///////////////////////////////////Пункт Б
///////////////////////////////////
  for i:= 1 to n do//выводим исходный вектор
    write(a[i]);
  min:= a[1];
  for i:= 1 to n do
    if a[i] < min
    then 
    begin
      min:= a[i];
      num:= i;
    end;
  for i:= num+1 to n do
    a[i-1]:= a[i];
  a[n]:= 0;
  writeln();
  for i:= 1 to n do//выводим вектор после удаления наименьшего элемента
    write(a[i]); 
  writeln();
  writeln('udalen element №', num);
///////////////////////////////////
///////////////////////////////////Пункт В
///////////////////////////////////  
  sum:= 0;
  num:= 0;
  for i:= 1 to n do
    if i mod 2 = 0
    then
    begin
      sum:= sum + a[i];
      inc(num);
    end;
  mean:= sum/num;
  writeln('srednee arifmeticheskoe = ', mean);
///////////////////////////////////
///////////////////////////////////Пункт Г
/////////////////////////////////// 
  num:= 1;
  num2:= 15;
  max1:= a[1];
  max2:= a[15];
  for i:= 1 to 10 do
    if max1 < a[i]
    then
    begin
      max1:= a[i];
      num:= i;
    end;
  for i:= 15 to n do
    if max2 < a[i]
    then
    begin
      max2:= a[i];
      num2:= i;
    end;
  for i:= 1 to n do//выводим вектор до перемены мест макс. элементов
    write(a[i]);
  temp:= a[num];
  a[num]:= a[num2];
  a[num2]:= temp;
  writeln();  
  for i:= 1 to n do//выводим изменённый вектор
    write(a[i]);
  writeln();
  writeln('elementy №', num, ' i №', num2, ' pomenyani mestami'); 
end.