I:=1;
s:=0;
while (i<n+1) do
begin
s:=s+a[i];
i:=i+1;
<span> end;
</span>
Я в Excel2007 делаю та: создаю таблицу, по которой нужно построить диаграмму, затем нажимаю Вставка - Диаграммы - выбираю тип строю ее и в появляющейся Вкладке Работа с диаграммами делаю все, что надо
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,n1,n2:integer;
begin
Write('Количество учеников: '); Read(n);
Randomize;
n1:=Random(n)+1;
n2:=n1;
while n2=n1 do n2:=Random(n)+1;
Writeln('Номера дежурных: ',n1,', ',n2)
end.
<u><em>Тестовое решение:</em></u>
Количество учеников: 35
Номера дежурных: 2, 26