1. В данном линейном массиве действительных чисел найти количество элементов, которые меньше среднего арифметического всех элеме
нтов этого массива. 2. Даны действительные числа a, b, c. Определить имеются ли корни квадратного уравнения ax2+bx+c=0. Если они есть, то вывести их значения x1 и x2 , иначе вывести «корней нет».
Program mq; var age:integer; a:array[1..3] of String = ('ребёнок','ученик','студент'); begin Read(age); case age of 1..6:WriteLn(a[1]); 7..18:WriteLn(a[2]); 19..25:WriteLn(a[3]); end; end. С блок схемой затруднения, сорян.