Напиши промежуточные результаты, "ком- сок " "мель-соль"

ком-сом-сокмель-моль-соль

ком-сом-сок

мель-моль-соль

 

выбери моё решение как лучшее и получи 2 пункта

Program arr; var    ar : array[1..100] of integer;     i, size, count, sum : integer; begin    writeln('введите размер массива');   readln(size);     if (size > 100) then begin    writeln('hазмер массива превышает 100 элементов. программа будет ');       readln;     end    else begin    writeln('введите ', size, ' чисел');       for i: =1 to size do begin        readln(ar[i]);         if ar[i] > 5 then begin          inc(count);           inc(sum, ar[i]);         end;       end;       writeln('вы ввели ', i - 1, ' чисел из которых ', count, ' больше 5, а их сумма составляет ', sum);       readln;     end; end.

1)d=(-37)^2-4*1*27=1369-108=1261 x1=)+35,5)/2*1=72,5/2 x1=36,25 x2=)-35,5)/2=1,5/2 x2=0,75 x1+x2=36,25+0,75=37 x2=36,25*0,75=27,19 2) x(x-210)=0 x1=0 x2=210 x1+x2=0+210=210 x1*x2=0*210=0 3)y(1-y)=0 y1=0 y2=1 y1+y2=0+1=1 y1*y2=0*1=0 4)d=41^2-4*1*(-371)=1681+1484=3165 x1=(-41+56,26)/2=15,26/2 x1=7,63 x2=(-41-56,26)/2=-97,26/2 x2=-48,63 x1+x2=7,63+(-48,63)=-41 x1*x2=7,63*(-48,63)=-371,05 5)y1=√19 y2=-√19 y1+y2=√19-√19=0 y1*y2=√19*(-√19)=-√(19)^2=-19 6)x1=√(10/3) x2=-√(10/3) x1+x2=√(10/3)+(-√(10/3))=0 x1*x2=√(10/3)*(-√(10/3))=-10/3