дано 2 одномерных массива размером 20 ячеек первый массив заполнить случайными числами от 10 до 50 второй заполнить случайными числами от 30 до 90 первый массив отсортировать по возврастанию второй по убыванию посчитать среднее арифметическое повторяющихся чисел.

язык паскаль

можно написать алгоритм

uses crt;var a:array[1..20] of integer;b:array[1..20] of integer;i,j,k,min,max:integer;beginwriteln('Первый массив: ');for i:=1 to 20 do begin a[i]:=random(50-10+1)+10; write(a[i]:3); end;writeln;writeln('Второй массив: ');for j:=1 to 20 do begin b[j]:=random(90-30+1)+30; write(b[j]:3); end;writeln;min:=60;writeln('Первый массив в порядке возрастания: '); for i:=1 to 20 do begin for j:=1 to 20 do begin if a[j]<min then begin min:=a[j]; k:=j; end; end; a[k]:=60; write(min:3); min:=60; end;writeln;max:=0;writeln('Второй массив в порядке убывания: '); for j:=1 to 20 do begin for i:=1 to 20 do begin if b[i]>max then begin max:=b[i]; k:=i; end; end; write(max:3); b[k]:=0; max:=0;end;writeln;end.Насчёт среднего арифметического мне не понятно: среднее арифметическое каких повторяющихся чисел брать? В каждом массиве, или в двух массивах одновременно? И учитывать ли то, что числа в массиве могут повторяться. Именно поэтому я не включил этого в код.