Составить программу Pascal для задачи: Найти количество элементов массива А (10), значения которых лежат между средним арифметическим элементов массива В (10) и средним геометрическим элементов массива С (10). Данные задать самостоятельно.

Текст программы

var a: array[1..10] of integer; b: array[1..10] of integer; c: array[1..10] of integer; sr_b, sr_c: double; i, col: integer;begin sr_b:= 0; sr_c:= 1; col:= 0; write('a: '); for i:= 1 to 10 do begin a[i]:= Random(100); write(a[i], ' '); end; writ...