Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение var a:array[1..10]o
Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение 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