Заполните массив на 43 элемента целыми значениями лежащими в диапазонах от -7 до 25 и организуйте вывод первых 18 элементов.

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var a: =arrrandom(43,-7,25); a.println;   write('первые 18: '); a[: 18].println end. тестовое решение: 5 16 13 14 -6 18 11 -4 16 -5 -2 21 22 3 14 8 18 10 19 18 -6 -4 21 19 -3 8 13 3 11 10 -7 11 25 18 20 1 14 -1 10 22 -1 7 14 первые 18: 5 16 13 14 -6 18 11 -4 16 -5 -2 21 22 3 14 8 18 10

1. путь решения поскольку среднее всех введенных чисел нельзя найти, пока не будет закончен ввод этих чисел, а затем каждое число нужно будет сравнивать с этим средним, введенные числа придется где-то хранить. например, в массиве длиной 100 (в условии сказано, что количество чисел "до 100"). считаем, что описан массив a[1..100] и в нем находятся n≤100 целых чисел (можно и нецелых, но раз ничего не сказано в условии, мы вправе решить это сами). тогда среднее определится по формуле: а сумму мы умеем считать, накапливая значение в цикле со счетчиком, проход по всем элементам массива. искомое количество чисел, меньших среднего - это тоже сумма, найти которую позволит еще один цикл, но в нем уже будет анализ условия. 2. программа на языке pascal const   nn=100; var   i,n,k,s: integer;   m: real;   a: array[1..nn] of integer; begin   write('количество чисел равно '); read(n);   writeln('введите числа: ');   s: =0;   for i: =1 to n do begin read(a[i]); s: =s+a[i] end;   m: =s/n;   k: =0;   for i: =1 to n do       if a[i]< m then inc(k);   writeln('количество чисел, превышающих среднее значение, равно ',k) end. 3. пример работы программы количество чисел равно 10 введите числа: 6 -4 11 -7 5 7 0 3 5 -2 количество чисел, превышающих среднее значение, равно 4