Задача на 10000. Массивы

[Дмитрийoks]

много уважаймые програмисты(ки) вот такая задача у меня---Дан массив
Li,...,L20. Замените все элементы, стоящие после Lmin на среднее арифмитическое всего ряда.---Незнаю как для вас а мне эта задача мозг разрыват не знаю с чего начать даже. Кто поможет с решением буду очень благодарен. Требуется написать Блок-схему, устный счёт ну и текс программы. Помогите спецы

[Летучий_СкилетиК]

стоящие после Lmin на среднее арифмитическое всего ряда

Ряда? в сысле всего масива?

var
   a:array[1..100]of integer;
   Lmin,L,i,s:integer;
begin
    randomize;
    for i:=1 to 20 do
    begin
          a[i]:=random(20);
          write(a[i],' ');
    end;
    Lmin:=a[1];
    L:=1;
    s:=0;
    for i:=1 to 20 do
    begin
        if a[i]<Lmin then begin Lmin:=a[i];L:=i;end;
        s:=s+a[i];
    end;
    s:=s div 20;
    for i:= L + 1 to 20 do
        a[i] := s;
    for i:=1 to 20 do
    write(a[i],' ');
end.

[Дмитрийoks]

если честно я не совсем понимаю эту задачу такое вот условие.

[Stilet]

Ну и от меня пример кода:

MODULE m;
IMPORT StdLog,Math;
VAR l:ARRAY(20) OF REAL;

PROCEDURE do*;
VAR i,lmin:INTEGER;sa:REAL;
BEGIN
 StdLog.Clear;lmin:=0;
 FOR i:=0 TO LEN(l)-1 DO
  l[i]:=i;sa:=sa+l[i];
  IF l[i]<l[lmin] THEN lmin:=i;END;
  StdLog.Real(l[i]);StdLog.Ln;
 END;
 sa:=sa/LEN(l);
 FOR i:=lmin TO LEN(l)-1 DO
  l[i]:=sa
 END;

 FOR i:=0 TO LEN(l)-1 DO
  StdLog.Real(l[i]);StdLog.Ln;
 END;
 
END do;

END m.

я не совсем понимаю эту задачу такое вот условие.

Ввести массив, найти его минимум, найти его среднее арифм. Заменить все числа после минимума на ср. арифметическое.