Запишите раздел описания переменных и операторы, необходимые для вычисления: а корней квадратного уравнения; б). стоимость покупки, состоящей из нескольких тетрадей, нескольких ручек и нескольких карандашей. заранее большое ! )​

ответ:

dssssssssssdddxzzzzzzzzzzzzzz

объяснение:

zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxcz

Const n=30;   var a: array[1..n] of integer; i,min,max,s: integer; sr: real; begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(11)+10;   write(a[i]: 6);   end; writeln; min: =a[1]; max: =a[1];   s: =a[1]; for i: =2 to n do   begin   if a[i]< min then min: =a[i];   if a[i]> max then max: =a[i];   s: =s+a[i];   end; sr: =s/n; writeln('min = ',min,' max = ',max,' sr = ',sr); s: =0; for i: =1 to n do write(a[i]-sr: 6: 1); end. пример (для 10 дней): массив a:     11     16     19     15     13     19     11     16     17     17 min = 11 max = 19 sr = 15.4   -4.4   0.6   3.6   -0.4   -2.4   3.6   -4.4   0.6   1.6   1.6

Var a: integer; begin write('введите время='); readln(a); if a=0 then begin write('ночь'); end; if a=1 then begin write('ночь'); end; if a=2 then begin write('ночь'); end; if a=3 then begin write('ночь'); end; if a=4 then begin write('ночь'); end; if a=5 then begin write('утро'); end; if a=6 then begin write('утро'); end; if a=7 then begin write('утро'); end; if a=8 then begin write('утро'); end; if a=9 then begin write('утро'); end; if a=10 then begin write('утро'); end; if a=11 then begin write('день'); end; if a=12 then begin write('день'); end; if a=13 then begin write('день'); end; if a=14 then begin write('день'); end; if a=15 then begin write('день'); end; if a=16 then begin write('день'); end; if a=17 then begin write('вечер'); end; if a=18 then begin write('вечер'); end; if a=19 then begin write('вечер'); end; if a=20 then begin write('вечер'); end; if a=21 then begin write('вечер'); end; if a=22 then begin write('ночь'); end; if a=23 then begin write('ночь'); end; if a=24 then begin write('ночь'); end; end.