Составить блок схему алгоритма по коду
int num;
int n;
cout << "Введите размерность массива:\n";
cin >> num;
n = 0;
int *array = new int[num];
cout << "Введите элементы массива:\n";
for (int i = 0; i < num; i++)
{
cin >> array[i];
}
int f;
do {
f = 0;
for (int i = 0; i < num; i++)
{
if (array[i] == 0)
{
for (i; i < num; i++)
{
array[i] = array[i + 1];
}
n = n + 1;
f = 1;
}
else
if (array[i] != 0)
{
continue;
}
}
} while (f!= 0);
cout << "Окончательный массив:\n";
for (int i = 0; i < num - n; i++)
{
cout << array[i] << endl;
} delete[] array;
system("pause");

Const
  n = 5;{ это позволяет в одном месте изменить количество чисел }

type
  numeric = real;{ это позволяет в одном месте изменить тип чисел }

var
  max, min: numeric;
  i: integer;
  a: array[1..n] of numeric;

begin
  Writeln('Введите ', n, ' произвольных чисел через пробел');
  Read(a[1]);
  min := a[1]; max := min;
  for i := 2 to n do
  begin
    Read(a[i]);
    if max < a[i] then max := a[i]
    else
    if min > a[i] then min := a[i]
  end;
  Writeln('Минимальное введенное: ', min, ', максимальное: ', max)
end.

Тестовое решение:
Введите 5 произвольных чисел через пробел
34 157 -84.54 14.843 -13.64
Минимальное введенное: -84.54, максимальное: 157

Алгоритм:
выставляем некий индикатор = 0
идем по массиву
если находим элемент больше 7, выставляем индикатор = 1, прекращаем просмотр массива, выводим номер элемента.
Если дошли до последнего элемента и все меньше 7 (индикатор = 0), выводим соответствующее сообщение.

Прога:
program test1;
var
M1: array [1..60] of integer;
ind, i: integer;

begin
ind :=0;
i := 1;
repeat
if M1[i]>7  then
begin
writeln(i);
ind := 1;
i :=  60;
end;
inc(i);
if ((i>60) and (ind=0))
begin
writeln('массив не содержит элементов, больших 7');
ind := 1;
end;
until(ind=1);
end;