Уровень Знание и понимание
1. Какие типы диаграмм существуют?
? 2. Почему у одной диаграммы имеется несколько видов?
3. Можно ли поменять подписи данных у готовой диаграммы? Каким об-
разом?
4. Как можно поменять тип диаграммы?
5. Какие дополнительные вкладки появляются в электронной таблице при
выделении диаграммы?
6. Как настроить диаграмму, чтобы она могла максимально визуализиро-
вать данные?
7. Как удалить диаграмму?
8. Объясните, какие виды графиков изображены на рис. 3.42.
Почему изображены два графика в одной координатной плоскости?
Какой график наиболее информативный?​

Var
    a: array[1..10]of integer;
    i, k, n: integer;

begin
    Writeln('Исходный массив:');
    Randomize;
    for i := 1 to 10 do
    begin
        a[i] := Random(51) - 25;
        Write(a[i], ' ');
    end;
    Writeln;
    
    n := 0;
    k := 0;
    for i := 10 downto 1 do
        if a[i] > 0 then
        begin
            k := k + 1;
            if k = 2 then n := i;
        end;
    
    if k = 0 then
        Writeln('В массиве нет положительных элементов!')
    else
        Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);
    
    Readln;
end.

Заметим, чтобы сгенерировать строку, нужно знать только предыдущую строку. Будет генерировать по порядку от 1 до n-ой строки.

Программа:

var
  n, i: integer;
  cur_str, prev_str: string;
begin
  read(n);
  prev_str := '';
  for i := 1 to n do {Генерируем строки по порядку от 1 до n}
  begin
    str(i, cur_str); {Записываем в текущую строку её порядковый номер}
    cur_str := prev_str + prev_str + cur_str; {Дописываем предыдущую строку два раза в начало}
    prev_str := cur_str; {Записываем текущею строку вместо предудущей}
  end;
  writeln(cur_str);
end.