Решить любую из двух задач. Если две — то спасибо 1) В одномерном массиве…

Я хотел через процедуру сделать, чтобы ты могла ей пользоваться и дальше… Но не удалосьВпрочем, вторая программа, в прикреплении, работает, проверил: зА это перваяvar a: array [0… 9] of integer; i, j, temp: integer; begin for i: =2 to 8 do begin a[i]: =random (11) — 5; writeln ('[', i, '] => ', a[i]); end; a[0]: =0; a[1]: =0; a[9]: =0; writeln (); for i: =0 to 9 do for j: =0 to 8 do if (a[j]=0) then begin temp: =a[j]; a[j]: =a[j+1]; a[j+1]: =temp; end; for i: =0 to 9 do writeln ('[', i, '] => ', a[i]); end.