Const A:array[0..10] of integer =(0,1,2,3,4,5,6,7,8,9,10);var i,s,n:integer;begins:=27;n:=10;write(A:4);writeln;for i:=0 to n-1 do begin s:= s + A[i] - A[i+1] + 2;writeln(i:3,A[i]:4);end;write('s=',s);end.
Ответ в прикрепленном файле)
Ответ:
1)шапку,числовые данные
2)шапку, боковик, один столбец чисел
3)тип и вид диаграммы, источник данных диаграммы, параметры диаграммы
4)на отдельном листе, на имеющемся
5)удерживая левую кнопку мыши перетащить
6)изменяя ширину столбцов
7)диаграмма, параметры диаграммы
8)кнопкой надпись
9)условное обозначение
10)заголовок диаграммы
Все приложения обрабатывают информацию.
Const n=13;
var
c:array[1..n] of integer;
i,num:integer;
begin
for i:=1 to n do c[i]:=random(-10,10);
for i:=n downto 1 do begin
write(c[i],' ');
if c[i] < 0 then begin
writeln(i);
break;
end;
end;
end.