Впаскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение var a: array[1..10]of integer; i,k,n: integer; begin n: =0; k: =0; writeln('исходный массив: '); randomize; for i: =1 to 10 do begin a[i]: =random(51)-25; write(a[i],' '); end; writeln; 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('номер предпоследнего положительного элемента: ',n); readln; end

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.