Напишите, пожалуйста, подробную задачу по информатике в Паскале. Содержание: В равномерном массиве А10 состоящих из целых чисел, еслиэлемент положителен - увеличьте в 2раза, если отрицателен - заменить на 0.
program lol; var a10:array[1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a10:=random(50)-39; writeln('Element #',i,': ',a10); end; writeln; for i:=1 to 20 do begin if a10 > 0 then a10:=a10*2; if a10 < 0 then a10:=0; writeln('Element #',i,': ',a10); end; readln; end.