Укажите для подписей оси X значения из столбца A. Для этого на вкладке Работа с диаграммами /конструктор — панели данные нажмите выбрать данные. В поле подписи горизонтальной оси нажмите на кнопку Изменить и выделите диапазон A2:A12

124

425

Посмотреть ответы 1

Ответы на вопрос:

VPVolkov03

Информатика

4,5(25 оценок)

Program var s: string; a: array[1..4] of integer; i: integer; begin read(s); for i: =1 to 4 do a[i]: =0; for i: =0 to length(s) do begin if s[i]=')' then inc(a[1]); if s[i]='(' then inc(a[2]); if s[i]='! ' then inc(a[3]); if s[i]='.' then inc(a[4]); end; if(a[1]> a[2])and(a[1]> a[3])and(a[1]> a[4]) then write('funny')else if(a[2]> a[1])and(a[2]> a[3])and(a[2]> a[4]) then write('sad') else if(a[3]> a[2])and(a[3]> a[1])and(a[3]> a[4]) then write('angry') else if(a[4]> a[2])and(a[4]> a[3])and(a[4]> a[1]) then write('deep') else write('unclear'); end.