дано 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;

begin

writeln ('Первый массив: ') ;

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]
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.

Насчёт среднего арифметического мне не понятно: среднее арифметическое каких повторяющихся чисел брать? В каждом массиве, или в двух массивах одновременно? И учитывать ли то, что числа в массиве могут повторяться. Именно поэтому я не включил этого в код.